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Abstract. We present in this paper all the details for a complete description of the Lie 
algebra fa in the split case at any characteristic. We finish with the determination of the 
expression of a generic element of this algebra. First of all is necessary to implement its 
quadratic Jordan structure (see the O. Loss' server http://mathematik.uibk.ac.at/jordan 
for our preprint). We write in this file only the computational details. 

The definition of derivation in the context of quadratic Jordan algebras (J, U, T) is a linear map D such 
that: 

and Xy)) V x,y 

We will use also the Leibniz identity D{\x, y, z}) = {D(x), y, z) + {x, D(y), z) + {x, y, D(z)} 



The images of E^l], i = 1, 2, 3. 

Do [Print [0 El[ i] [ONE] = = E ± [1] ] , {i, 3}] 

True 

True 
True 

Leib[x_, y_, z_] :=T[A[x], y, z] +T[x, A[y], z] +T[x, y, A[z]] 



A [Ei [1] ] = generic; 



Elemento generico de Der(H3( Os, —), 



A [Ei [1] ] - T[A[Ei [1] ] , ONE, E x [1] ] // Expand 

'( -A.i {o,o, oh i o jo,o, oh i o (o,o, oh 

1 (0, 0, 0) -Aj J t {0, 0, 0) J { (0, 0, 0) J 

( o {o,o, oh t x 2 {o,o, oh t a 12 {A M , a 15 , A 16 h 

1(0,0,0) J 1(0,0,0) A 2 J i(A 17 , A 18 , A 19 ) A 13 J 

C (0,0, 0)\ C A 13 (-Ai4,-A l5 ,-A 16 )\ / A 3 (0, 0, Oh 

1(0,0,0) J U-Ai 7 ,-Ai 8 ,-Ai9) A12 J 1(0,0,0) A 3 J 

A[Ei [1] ] = A[Ei [1] ] // . {Ai -> 0, A 2 -> 0, A 3 -> 0, A i2 -> 0, 

A13 -» 0, A14 -> 0, Ais 0, Ais -> 0, A17 -> 0, A i8 -> 0, A i9 -> 0} 

( ( (0, 0, 0)\ j' A 4 {A 6 ,A 7 ,A 8 )\ ( A 20 (A 22 , A 23 , A 24 ) 

1(0,0,0) J i(A 9 , A 10 ,A n ) A 5 J l(A 25 , A 26 ,A 27 ) A 21 

( A 5 {-A 6 ,-A 7 ,-A 8 h / {0,0, Oh C {0,0, Oh 

U-As.-Aic-An) A 4 J 1(0,0,0) J 1(0,0,0) J 

/ A 21 j-A 22 , -A 23 , -A 24 )\ ( (0, 0, Oh C (0, 0, Oh 

A(-A25,-A 26 ,-A 27 ) A 20 j 1(0,0,0) j 1(0,0,0) J 

A[Ei [1]] = 

A[Ei [1] ] // . {A 4 -> ai , A 5 -> a 2 , A 6 -> a 3 , A 7 -> a 4 , A 8 -> o s , 
A 9 -> a 6 , Aio -> a 7 , An -> « 8 , A 20 -> /3i , A 2i -> /3 2 , A 22 -> /3 3 , 
A 23 ->/3 4 , A 24 ->/3 5 , A 2S ->/3 6 , A 26 ->/3 7 , A 27 ->/3 8 } 

j' (0,0, Oh ( a x {a 3 ,a 4 ,a 5 }\ ( fa {p 3 , Pa , Ps } V 

1(0,0,0) J i(a 6 ,a7,a 8 ) a 2 j UAs , £ 7 , /? 8 } Pi ) 

a 2 {-a 3 , -a 4 , -a 5 h ( (0, 0, 0} A f (0, 0, 0) ^ 

{-a 6 ,-ar 7 ,-a 8 } a] J 1(0,0,0) j 1(0,0,0) J 

/ Pi {-&,-&, -ft U ( {0,0, Oh ( {0,0, Oh 

\{-p 6 ,-p 7 ,-p g } Pi J 1(0,0,0) J 1(0,0,0) J , 

T[Ei[l], Ei[l], Ei[l]] = =2E 1 [1] 

True 

Leib[E![l], Ei[l], Ei[l]] = =2A[E 1 [1]] 

True 

A[E 2 [1] ] = generic; 

A[E 2 [1] ] - T[A[E 2 [1] ] , ONE, E 2 [1] ] // Expand 

( Ai (0,0, Oh C (0,0, 0)\ C A 20 {A 22 , A 23 , A 24 )\ 

1(0,0,0) Ai J 1(0,0,0) J l(A 25 ,A 26 ,A 27 ) A 21 J 

( {0, 0, 0)\ ( -A 2 (0, 0, 0)\ ( {0,0, Oh 

1 (0, 0, 0) j { (0, 0, 0) -A 2 j ( (0, 0, 0) j 



A 21 j-A 22 , -A 23 , -A 24 )\ ( (0,0, Oh ( A 3 (0,0,0)' 

U(-A 25 ,-A 26 ,-A 27 ) A 20 J 1(0,0,0) J 



( A 3 {0,0,0} \ 
1(0,0,0) A 3 J 
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A[E 2 [1] ] = A[E 2 [1] ] //. {Ai -> 0, A 2 -> 0, A 3 -> 0, A 20 -» 0, 

A 2 i -* 0, A 22 -» 0, A 23 -> 0, A 24 -> 0, A 2S -» 0, A 26 -> 0, A 27 -» 0} 



C {0,0, 0}\ C A 4 (A 6 ,A 7 ,A 8 )\ / {0,0 

1(0,0,0) J UAs.Aio.Aii} A 5 J 1(0,0,0) 

A 5 (-A 6 , -A 7 , -A 8 )\ / {0,0,0} \ ( A12 (A 14 , 

,(-A 9 ,-A l0 ,-An) A 4 j 1(0,0,0) j I (A 17 , A 18 , A 19 ) 

C {0,0,0} \ f A 13 (-Ai4,-A 15 ,-A l6 )\ / (0,0 

1(0,0,0) J U-Ai7,-Ai 8 ,-Ai9} Ai 2 J 1(0,0,0) 

El [l] [E 2 [1]] == ZERO 

True 

T [A [Ei [1]], E 2 [1], E X [1]] +U El[ i] [A[E 2 [1]]] == ZERO 

True 

?Leib 

Global 'Leib 

Leibfx_, y_, zj := r[AW, y, z) + Tfx, A[y], z) + rfcc, y, A[z]] 

T [Ei [1] , Ei [1] , E 2 [1]] == ZERO 

True 

Leib[Ei [1] , Ei [1] , E 2 [1]] 

I (0,0,0)1 { ffi +A4 (a 3 + A f ,,a 4 + A 7 ,ff 5 +A 8 h ( 

1(0,0,0) J (,{a 6 +X 9 ,a 1 +X w ,a s + A„) a 2 +A 5 J (,(' 

«2+A 5 (-a 3 -As, -a 4 -A 7 , -a 5 -A 8 )1 / (0,0,0)1 f 

-a 6 -A 9 ,-a 7 -A 10 ,-a s -A„} a, +A 4 J 1(0,0,0) J (,(' 

/ (0,0,0)1 { ° l°' '°)l f 

1(0,0,0) J 1(0,0,0) J if 



A[E 2 [1] ] = A[E 2 [1] ] // . {A 4 -> -ai , A 5 -> -a 2 , A 6 -> -a 3 , 
A 7 -> -a 4 , Ag -> -as , Ag -» -a6 , A10 -* -07 , An -» -c<8 } 



-ai 

-ff6, -«7, ~ a i) 



f {0,0,0} A C 

1(0,0,0) J 1 1 
-a 2 {ar 3 , armors h ( (0,0, Oh 

J 1(0,0,0) J 



«3 , -ff 4 , —as ) 
-a 2 



(a 3 , a 4 , a 5 ] 
^ 10,0.0! 



.(0, 0, 0) 



o,oh t } 
J U-A„,- 



A13 

Ais, -A19} 



-Ah, -A15, -Ai 6 ) 
A12 



) ( 

({An 
) ( (0, 





(0, 0, 0) 

A12 

A18, A19} 



(0, 0, 0) 



0, oh 
J 



{Al4, A|5 , Al6) > 

A13 j 
(0, 0, 0}^ 



0} 



.0, oh 
J 



T[Ei [1] , E 2 [1] , Ei [1]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



Leib[Ei[l], E 2 [l], Ei[l]] == ZERO 

True 

T[Ei[l], E 2 [l], E 2 [l]] == ZERO 

True 

Leib[Ei[l], E 2 [l], E 2 [l]] == ZERO 

True 

T[E 2 [1] , Ei [1] , E 2 [1]] 

(i {0, 0, Oh / {0, 0, Oh / {0, 0, Oh" 

'{0,0,0} I '{0, 0, 0} I '{0,0,0} I 

/ {0, 0, 0}w {0, 0, Oh / {0, 0, Oh 

'{0,0,0} M {0,0,0} ' '{0,0,0} ' 

/ {0, 0, 0}\ / {0, 0, Oh / {0, 0, Oh 

h {0,0,0} ' '{0, 0, 0} ' '{0,0,0} ', 

Leib[E 2 [l], Ei[l], E 2 [l]] == ZERO 

True 

T[E 2 [1], E 2 [l], E 2 [l]] ==2E 2 [1] 

True 

Leib[E 2 [l], E 2 [l], E 2 [l]] ==2A[E 2 [1]] 

True 



A[E 2 [1] ] = A[E 2 [1] ] // . {A 12 n , A 13 y 2 , 

A14 -* Y3 , A15 -> y 4 , Ais -» y 5 , A i7 -» y 6 , A i8 -» y 7 , X 19 -> ra } 

( ( {0, 0, 0} A ( -ai {-a 3 ,-a 4 ,-a 5 }\ ( {0, 0, 0}\ \ 

1(0,0,0} J {{-a 6 , -a 7 , -a 8 } -a 2 J 1(0,0,0} J 

( -a 2 [a 3 , a 4 , a 5 }\ ( (0, 0, 0} \ ( y, (73,74,7sh 

{{a 6 ,a 7 ,a s } -a { J 1(0,0,0} J 1(76,77,78) 72 J 

( (0,0, Oh ( 72 {-73,-74,-75}^ ( (0,0, 0}\ 

1(0,0,0} J I (-76, -77, -7s) 7i J 1(0,0,0} J , 



As£i[l] +E 2 [1] +E 3 [1] == 1 and/3(l) = 0, 
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A[E 3 [1]] = -A[E 2 [1]] -A[Ei [1]] 

{o, o, on { o 



f o {o,o, on f 

I {0,0,0} o J I 



( 





{0, 0, 0) 

C o {o,o, oh 

I {0,0,0} J 

-A {03,0A,0s) 

ifr, fa, fa] -fa 



{0, 0, 0} 



{0, 0, 0} 



) (, 
) (,- 



-72 (73 - 74 , 75 1 N 
(76 , 77 . 78 } -7i 



{-#,, -fa, -fa) 

6 , -fa, -fa) -fa 

-7i {-73,-74,-75} 
76 , "77 - "78 1 "72 

t {0, 0, 0} \ 
1(0,0,0} J 



)] 



Ue 3 [1] [Ei [1]] == ZERO 

True 

T[A[E 3 [1]], Ei[l], E 3 [l]] +U E3[1] [A[Ei[l]]] == ZERO 

True 

Oe 3 [1] [E 2 [1]] == ZERO 

True 

T[A[E 3 [1]], E 2 [l], E 3 [l]] + Ue 3 [l] [A[E 2 [1]]] == ZERO 

True 

(A[E 3 [1] ] - T[A[E 3 [1] ] , ONE, E 3 [1] ] // Expand) == ZERO 

True 



The images of Xj [ej ]. 

Leib[x_, y_, z_] :=T[A[x], y, z] +T[x, A[y], z] +T[x, y, A[z]] 

_ / ai |a 3 , a 4 , o s ) \ 

1 \ {a 6 , a 7 , o 8 } o 2 / ' 



- ( 131 
2 \{06 , 0i , Pa } 



_ / Yi 

3 ~ WY6, Y7, 



Y8 } 



{a 3 , a 4 , o s } 
a 2 

{03, 04, 0s) \ 

02 )' 

{Y3 , Y4 , Ys } 
Y2 



A[Ei [1]] = 



A[E 2 [1]] 



zero Oi 2 
a[Oi] zero zero 
a[0 2 ] zero zero 

zero -Oi zero ^ 
-a[Oi] zero 3 
, zero ct[0 3 ] zero 



A[E 3 [1]] =-A[Ei[l]] -A[E 2 [1]]; 

Xi [f_] : = Xi f2 [£] ; X 2 [f_] : = X 2 , 3 [ff] ; X 3 [£_] : = X 1;3 [ff] ; 
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Elemento generico de Der(H3( Os, —), 



Xi[ex] 



A[Xi [ei ] ] = generic; 
Ux l[ei ] [Ei [1]] == ZERO 

True 



defin[x_, y_] :=T[A[x], y, x] +U x [A[y]] 
defin[Xi [ei ] , Ei[l]] //Expand 



'< {0,0, Oh (a 2 +M {0,0, Oh t {0,0, Oh ^ 

{ {0, 0, 0) J { {0, 0, 0) J { {0, 0, 0) J 

( o {o,o, oh t a 5 {o,o, oh t o {o,o, oh 

1(0,0,0) a 2 +X x ) 1(0,0,0) A 5 J 1 (A 25 , A 26 , A 27 ) A 21 J 

( {0, 0, 0)\ ( A 21 {0,0, Oh ( (0, 0, 0)\ 

A (0,0,0) j 1{-A 25 ,-A 26 ,-A 27 ) J 1(0,0,0) j , 



A[X X [ei]] = A[X X [ei]] //. 

{Ai -> -a 2 , A s -> 0, A 2 i -> 0, A 2S -> 0, A 26 -> 0, A 27 -> 0} 



( -a 2 {0,0, 0}\ 
1(0,0,0) -or 2 J 

/ o (-a 6 ,-; 

I {-A9 , -A 10 , -An ) A 4 

f ° 

I 1(0,0, 



-A23, -A24 

0) A 20 



A 7 , A 8 h 
J 



f A20 (A22 , A23 , A24 ) 
1(0,0,0) j 



f A4 (Af, , A 7 , A 8 } 

V {A9, A10, An ) 

t A 2 (0, 0, 0) 

1(0,0,0) A 2 J UAi 7 ,A 18> A 19 ) a 13 

A13 {-Ai4,-A 15 ,-A 16 }^ f A 3 (0,0,0) 

, ( _ Ai 7 , -Aig , -A19 ) A12 



I A12 (A14 , A15 , Ai6 1 

I (A|7 , A] S , A|Q ) A|; 



') (,»; 



0, 0) A 3 



Ux l[ei ] [E 2 [1]] == ZERO 

True 



defin[Xi [ei ] , E 2 [l]] //Expand 

(0, 0,0} \ ( A 2 - a 2 {0, 0, 0) 



( (0,0, 0)\ (X 2 -a 2 {0,0, Oh ( A 12 (A 14 , A 15 , A 16 )^ 

1 (0, 0, 0) J 1 {0, 0, 0) J 1 (0, 0, 0) 

1. ()| j j |0. 0, Oh i |0. 0.0! 



{0, 0, 0) A 2 - a 2 



11(0, 0, 



0) 



Ai 2 



')( 



{0, 0, 0) 



(0, 0, 0) 



) 

0,0) \ i {0,0, oh 

J 1(0,0,0) J 

, 0, oh ( (o, 0, oh 

J 1(0,0,0) J 



A[Xx [ ei ]] = 

A[X X [ei]] //. {A 2 -> a 2 , A i2 -> 0, A14 -> 0, A15 -> 0, A i6 -> 0} 



< -a 2 
1 (0, 0, 1 



a 2 {0, 0, 0) 
0) -a 2 
{-A 6 ,-A 7 ,-A : 
{-A9, -A10, -An ) A4 
( {-A 22 , -A 2 3, -Am)^ 
1(0,0,0) A 



I ({A 9 ,Ai , 

) 

J ( 



A4 {A6 , A 7 , A 8 ) 

An) 



^20 (A 22 , A 23 , A 24 ) ^ 
{0, 0, 0) 

(0, 0, 0) 

{0,0,0) a 2 ) UAn, Ai 8 , Ai 9 ) A13 

An {0, 0, Oh ( A 3 (0,0,0) 

J { (0, 0. 



{-An , -Ai 8 , -Ai 9 ) 



0) 



') J 
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Ux l[ei] [E 3 [1]] == ZERO 

True 

(defin[Xi [ei] , E 3 [1] ] // Expand) == ZERO 

True 

Ux l[ei] [Xi [ei]] == ZERO 

True 

(defin[Xi [ei] , X x [e x ] ] // Expand) == ZERO 

True 

T [Ei [1], Ei [1], Xi [•!]] ==Xx [ei] 

True 

A[Xi [ei] ] -Leib[Ei [1] , E x [1] , X x [e x ] ] // Expand 

'I o {o,o, on e o {o,o, oh 

1(0,0,0) J 1(0,0,0) J 



C o {0, o, Oh r o (o, o, o)\ / 

1(0,0,0) J 1(0, 0,0) o J 1 

C (0,0, 0}\ f Xn-fo {0,0, Oh I A 3 

A {0.0,0} J 1{^-Ai7,^7-Ai8,j8 8 -Ai 9 } J 1(0,0. 



{0, 0, 0} \ 
(0, 0, 0) J 

{0, 0, 0} > 

{An - As , Ais - Pi , Ai 9 - /3 8 } A13 - p2 ) 



A[Xi [ei]] = 

A[Xi [ei]] //. {A 3 -> 0, Ai 3 ->/3 2 , Ai, -> /3 6 , Ai 8 -* /3 7 , A i9 -> /3 8 } 



/■ -a 2 (0, 0, Oh ( A 4 (A 6 ,A 7 ,A 8 }\ I A 20 {A 22 , A 23 , A 24 ) ^ 

1(0,0,0) -ai J I {As, A l0 , A n ) J 1(0,0,0} J 

(-A 6 , -A 7 , -A 8 )\ ( a 2 {0,0, Oh I (0, 0, 0} \ 

.{-A 9 ,-A l0 ,-A n ) A 4 J 1(0,0,0) a 2 j { {yS 6 , j3 7 , j8 8 } ft J 



C {-A 22 , -A 23 , -A 24 )\ | #> (0, 0, Oh C {0,0, Oh 

, 1(0,0,0} A 20 j l(-/3 6 ,-/3 7 ,-/3 8 ) j 1(0,0,0} J , 



T[Ei [1], X X [ei], E X [1]] == ZERO 

True 

Leib[Ei [1] , Xi [ei ] , E x [1] ] == ZERO 

True 



T[E 2 [1], E 2 [l], Xi[ei]] ==X X [ei] 

True 



Elemento generico de Der(H3( Os, —), 



A[Xi [ei] ] -Leib[E 2 [1] , E 2 [1] , X X [ei] ] // Expand 



C o {o,o, oh c o {o, o, o)wa 20 -ri U 22 -y 3 , a 23 -y 4 , a 24 -ysh 

I {0, 0, 0} j 1 {0, 0, 0} j 1 {(), 0, 0} o , 

( o {o, 0,0} \ i o (0, o, 0}\ o {o,o, oh 

1(0,0,0} j 1(0,0,0} J 1(0,0,0} j 

C (y 3 -A 22 ,y 4 -A 23 ,y 5 -A 24 h f (0,0,0}\ ( {0, 0, Oh 

,1(0,0,0} A 20 - Tl J 1(0,0,0} J 1(0,0,0} J 



A[Xi [ei ] ] = A[Xi [ei ] ] / / . {A 20 -» Yi , A 22 -> Y3 , A 23 -* Y4 , A 24 -» ir 5 } 

I -a 2 (0,0,0}\ I A 4 (A 6 ,A 7 ,A 8 }\ I y x {73,74,75}y 

1(0,0,0} -a 2 ) UAs.Aio.An} J 1(0,0, 0} J 

( j-A 6 , -A 7 , -A 8 }\ t a 2 (0,0, Oh ( (0, 0, 0} \ 

U-As.-Aic-An} A 4 j 1(0,0,0} a 2 J 1 j/3 6 , /3 7 , } & J 

f {- r3 ,- r4 ,- r5 }N / /? 2 (0,0, 0}\ f (0,0, 0}\ 

1(0,0,0} n J U-jSe, -Pi, -P%] J 1(0,0,0} ) , 



T[E 2 [1], Xi [ei], E 2 [1]] == ZERO 

True 



Leib[E 2 [1] , Xi [ei] , E 2 [1] ] == ZERO 

True 

T[E![1], E 2 [l], Xi[ei]] == ZERO 

True 



(Leib[Ei [1] , E 2 [1] , Xi [ei] ] // Expand) == ZERO 

True 



T[E 2 [1], Ei[l], Xi[ei]] == ZERO 

True 



(Leib[E 2 [1] , Ei [1] , Xi [ei] ] // Expand) == ZERO 

True 



T[Ei [1], Xi [ei], E 2 [1]] ==Xx [ei] 

True 



A[Xi [ei]] -Leib[Ei[l], X X [ei], E 2 [1] ] == ZERO 

True 
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T[X X [ei], X X [ei], Xitei]] == ZERO 

True 

Leib [Xx [ei ] , Xx [ei ] , X x [ei ] ] == ZERO 

True 

T[Xi [ei] , E X [1] , Xx [ei] ] == ZERO 

True 

Leib[X! [ei], E X [1], X! [ei]] == ZERO 

True 

T[Xi [ei] , E 2 [1] , Xx [ei] ] == ZERO 

True 

Leib[Xi [ei], E 2 [l], X! [ei]] == ZERO 

True 

T [Ei [1] , X X [ei] , X X [ei] ] == ZERO 

True 

Leib[Ei [1] , X! [ei] , X! [ei] ] == ZERO 

True 

T[E 2 [1] , X X [ei] , Xx [ei] ] == ZERO 

True 

Leib[E 2 [1] , Xi [ei] , X x [e x ] ] == ZERO 

True 

A[Xi [ei]] = A[X X [ei]] //. 

[X4 -> 61 , -» 82 t A7 -» 53 , Ag -> 64 , A9 -> 5s , A10 -> <56 , An -> <57 } 

/ -ff 2 (o,o,oh c 5i {62,63,64}} 1 n {r 3 ,r4,r5}y 

1(0,0,0} -or 2 J 1(^,^,57) J 1(0,0,0} J 

f {-62,-63,-64}} f a 2 (0,0, Oh ( (0,0, Oh 

{{-65,-66,-6!} 8 X ) 1(0,0,0} a 2 ) [{fie.fi,, fit) fii J 

f {-r 3 , -74, -75 }\ ( Pi (0,0, Oh f (0,0, Oh 

, 1(0,0,0} r , J u-ft.-A.-AJ J l(o,o,o} J , 
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Elemento generico de Der(H3( Os, —), 



Xi[e 2 ] 

A[Xi [e 2 ] ] = generic; 
U Xl [e 2 ] [Ei [1]] == ZERO 

True 



defin[Xi [e 2 ] , Ei[l]] //Expand 

'I o {o,o, oh i o {o,o, oh i o (o, o, oh 1 

I {0, 0, 0) J { {0, 0, 0) a t + A, ) { {0, 0, 0) J 

r ai +\i {o,o,oh t a 4 {o,o,oh t a 20 (a 22 , a 23 , a 24 h 

{ {0, 0, 0) J { {0, 0, 0) A 4 J { {0, 0, 0) J 

( {0,0, Oh < {-A 22 , -A.23, -A 24 h ( {0,0, Oh 

A {0,0,0) j 1(0,0,0) A 20 J 1(0,0,0) J , 



A[X X [e 2 ]] = A[X X [e 2 ]] //. 

{Ai -> -ai , A 4 -> 0, A 20 -> 0, A 22 -> 0, A 23 -> 0, A 24 -> 0} 



I - ai (0,0, Oh ( (A 6 ,A 7 ,A 8 )\ ( {( 

1(0,0,0) -a x J i{A 9 ,A l0 ,A„) A 5 J I (A 25 , A 26 , A 27 ) 

A 5 (-A 6 , -A 7 , -A 8 )\ r A 2 {0, 0, 0)\ / A12 (A 14 , 

J 1(0,0,0) A 2 J ((A„,; 

A 2 i (0,0, 0)\ j' A 13 (-Ai 4 ,-A l5 ,-A 16 h ( h (0,0 

(-A 25 ,-A 26 ,-A 27 ) J ((-A 17 ,-A 18 ,-A 19 ) A 12 J 1(0,0,0) A 3 



U Xl [e 2 ] [E 2 [1]] == ZERO 

True 



defin[Xi [e 2 ] , E 2 [l]] //Expand 

i i o (o, o, oh ( o 

1(0,0,0) J 1(0,0,0) 

/• A 2 - or, (0, 0, 0) \ j' 

1(0,0,0) j 1(0,0,0) 

j' Ai 3 (0,0, Oh ( 

A(-Ai 7 ,-A 18 ,-A 19 ) j 1(0,0,0) 



(0, o, oh ( o (0, o, 0}y 

A 2 -a x j { (A 17 , A 18 , A 19 ) A 13 J 

(o, o, oh ( o (o, o, oh 

J 1(0,0,0) J 

(o, o, oh j' o (0,0, oh 

J 1(0,0,0) J , 



A[Xi [e 2 ]] = 

A[Xi [e 2 ]] //. {A 2 -> «i, A i3 -> 0, Ai 7 -> 0, A i8 -> 0, A i9 -> 0} 

( -a x (0, 0, Oh ( (A 6 ,A 7 ,A 8 )\ I (0, 0, 0) V 

1(0,0,0) -ori J ((A 9 , A 10 , A u ) A 5 J ( (A 25 , A 26 , A 27 ) A 21 j 

I A 5 j-A 6 , -A 7 , -A 8 )\ ( an (0,0, Oh ( A 12 (A 14 , A 15 , A 16 )\ 

l(-A 9 ,-A l0 ,-An) J 1(0,0,0) a x J 1(0,0,0) J 

j' A 2] (0, 0, 0)\ r {-Ah, -A 15 , -A l6 )\ ( A 3 (0, 0, Oh 

, l(-A 25 , -A 26 , -A 27 ) J 1(0,0,0) A 12 J 1(0,0,0) A 3 J , 



Sesion V 



163 



U Xlte2] [E 3 [1]] == ZERO 

True 

(defin[Xi [e 2 ] , E 3 [1] ] // Expand) == ZERO 

True 

U Xl [e 2 ] [Xi [e 2 ] ] == ZERO 

True 

(defin[Xi [e 2 ] , X x [e 2 ] ] // Expand) == ZERO 

True 

Ux l[e2] [Xi [ ei ]] ==X 1 [e 2 ] 

True 



(A[X![e 2 ]] -defin[Xi [e 2 ] , X x [ ei ] ] //Expand) 

< ( o {o,o, oh t o {o, o, o) w o jo, o, om 

{ {0, 0, 0) J { {0, 0, 0) -6i - A 5 j { {0, 0, 0) J 

( -Si - A 5 {0, 0, 0) W {0, 0, 0) W (0, 0, 0) \ 

{ (0, 0, 0) J { {0, 0, 0) J { (0, 0, 0) J 

o {o,o, oh ( o {o,o, oh ( a 3 {o,o,o) 

(0,0,0) J 1(0, 0,0) J 1(0,0,0) A 3 



( 



) 



A[Xi [e 2 ] ] = A[X X [e 2 ] ] //. {A 3 ^ 0, A s ^ -5i} 



f -ai {0,0, 0}\ 
1(0,0,0) -ori J 



-5i (-^6, -A 7 , -A 8 ) 

.(-A 9 ,-A l0 ,-A u ) 
f A 21 (0, 0, 0) 

U-A25, -A 2 6, -A27) 



f ° 

) ( (0, 0, 1 



(A 6 , A 7 , A : 
An) -Si 
(0, 0, 0) 
0) an 

^ C (-A I4 , -A l5 , -A l6 
i I (0, 0, 



0) 



1 f 

) \ (A25 , A2( 

) (,o.t 

) 



(0, 0, 0) 

A26 , A27 ) A21 

Al2 (A14, A15, Al6) 

0) 
(0, 0, 0) 
(0, 0, 0) 



) j 



T[Ei[l], Ei[l], Xi[e 2 ]] ==X X [e 2 ] 

True 



A[Xi [e 2 ] ] - Leib[Ei [1] , E x [1] , X x [e 2 ] ] // Expand 

'( {0,0, Oh ( (0, 0, Oh 

{ (0,0,0) J 1(0,0,0} J 

(-o jo, 0, oh r jo, 0, o}\ 

1(0,0,0) j 1(0,0,0} j 

f 

I (0, 



( [0,0,0)\ 
{ {0, 0, 0} J 



(0, 0, 0) 
0} 



I {0, 0, 0) 
{ (0, 0, 0} 
-Ai4,y8 4 - A15 , jS 5 -Ai 6 } 

(0,0,0) Xn-fii 



A12 - jSi {Am-A.Ais-A.Aw-A}^ 

{0, 0, 0) ; 

(0, 0, 0} \ 
{0, 0, 0) J 



) (, 



Elemento generico de Der(H3( Os, —), 



A[Xi [e 2 ]] = A[Xi [e 2 ]] //. {A 12 ->/3i, A14 -> /3 3 , A15 -> /3 4 , A i6 -> /3 S } 

/" -a x (0,0, 0j\ / (A 6 ,A 7 ,A 8 )\ ( (0, 0, 0) V 

1(0,0,0) -a x J UA9, Am, A n ) -<5, j l(A 25 , A 26 , A 27 ) A 21 J 

< Si j-A 6 , -A 7 , -A 8 )\ ( a, (0,0, 0) \ / ft {ft , ft , ft } \ 

1(-A 9 ,-A 10 ,-Ah) J 1(0,0,0) ai J 1(0,0,0) J 

( A 21 (0,0, 0)\ / {-ft,-ft,-fth ( (0,0, Oh 

> U-A25, -A 26 , -A 27 ) J 1(0,0,0) ft J 1(0,0,0) J , 

T [Ei [1] , X X [e 2 ] , Ex [1] ] == ZERO 

True 



Leib[Ei [1] , Xi [e 2 ] , E x [1] ] == ZERO 

True 

T[E 2 [1], E 2 [l], Xi[e 2 ]] ==Xi [e 2 ] 

True 



A[Xi [e 2 ] ] - Leib[E 2 [1] , E 2 [1] , X x [e 2 ] ] // Expand 

( (0, 0, oh ( (0, 0, oh ( (0, 0, 0}y 

1(0,0,0) J 1(0,0,0) j l(A 25 -re, A 26 -77, A 27 -y 8 ) A 21 -y 2 j 

( (0, 0, 0) A ( (0, 0, Oh ( (0, 0, 0) ^ 

1(0,0,0) J 1(0,0,0) j 1(0,0,0) j 

A 2 i-72 (0,0, 0)W (0,0, Oh ( (0,0, Oh 

(76 -A 25 , 77 -A 26 ,r 8 -A 27 ) j 1(0,0,0) J 1(0,0,0) J 



A[Xi [e 2 ] ] = A[Xi [e 2 ] ] / / . {A 25 -» y 6 , A 26 -» y 7 , A 27 -» y 8 , A 2i -» y 2 } 

I - ai (0,0, 0)\ / (A 6 ,A 7 ,A 8 )\ / (0,0, 0} V 

1(0,0,0) -ari J i(A 9 , A 10 , A„) -5! J 1(76,77,78) 72 J 

f -5, j-A 6 , -A 7 , -A 8 )\ ( a x (0,0, 0)\ / ft {ft,ft,fth 

i(-A 9 ,-A 10 ,-An) J 1(0,0,0) on J 1(0,0,0) J 

( 72 {0,0, oh f {-ft,-ft,-ft}\ c (0,0, 0)\ 

I {-76, -77, -7s) J 1(0,0,0) ft J 1(0,0,0) J , 



T[E 2 [1], Xi [e 2 ], E 2 [1]] == ZERO 

True 



Leib[E 2 [1] , Xi [e 2 ] , E 2 [1] ] == ZERO 

True 



T [Ei [1] , E 2 [1] , X! [e 2 ] ] == ZERO 

True 
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(Leib[Ei [1] , E 2 [1] , Xi [e 2 ] ] // Expand) == ZERO 

True 

T[E 2 [1] , Ei [1] , Xi [e 2 ] ] == ZERO 

True 

(Leib[E 2 [1] , Ei [1] , Xi [e 2 ] ] // Expand) == ZERO 

True 

T [Ei [1] , Xi [e 2 ] , E 2 [1] ] == Xi [e 2 ] 

True 

A[Xi [e 2 ] ] -Leib[Ei [1] , Xi [e 2 ] , E 2 [1] ] == ZERO 

True 

Ux l[ei] [Xi [e 2 ]] ==Xi [ei] 

True 

(A[Xi[ei]] -defin[Xi [e x ] , X x [e 2 ] ] //Expand) == ZERO 

True 

T [Ei [1] , Xi [ei] , Xi [e 2 ] ] == Ei [1] 

True 

(A[Ei [1] ] - Leib[Ei [1] , Xi [ei] , X x [e 2 ] ] // Expand) == ZERO 

True 

T[Xi [ei] , Ei [1] , Xi [e 2 ] ] == E 2 [1] 

True 

A[E 2 [1] ] - Leib[Xi [ei] , Ei [1] , Xi [e 2 ] ] == ZERO 

True 

T[E 2 [1] , Xi [ei] , Xi [e 2 ] ] == E 2 [1] 

True 



Elemento generico de Der(H3( Os, —), 



(A[E 2 [1] ] - Leib[E 2 [1] , Xi [ei ] , Xi [e 2 ] ] // Expand) == ZERO 

True 

T[X X [e 2 ] , X X [ei] , X X [ei]] == ZERO 

True 

Leib [Xx [e 2 ] , Xx [ei ] , X x [ei ] ] == ZERO 

True 

T [X X [ei ] , X X [e 2 ] , X X [ei ] ] == 2 X x [e x ] 

True 

(2 A[Xi [ei] ] - Leib[Xi [e x ] , X x [e 2 ] , X x [ei ] ] // Expand) == ZERO 

True 

T[X X [e 2 ] , X X [e 2 ] , X X [ei]] == ZERO 

True 

Leib [Xx [e 2 ] , Xx [e 2 ] , X x [ei ] ] == ZERO 

True 

T[X X [e 2 ] , X X [e 2 ] , X X [e 2 ]] == ZERO 

True 

Leib [Xx [e 2 ] , Xx [e 2 ] , X x [e 2 ] ] == ZERO 

True 

A[Xi [e 2 ]] 

I -ai (0,0, 0)\ t (A 6 ,A 7 ,A 8 h t {0,0, 0}V 

1(0,0,0) -a t J ((A 9 , A l0 , A n ) -tf, J [{76,77,78} 72 J 

C -tf, {-A 6 , -A 7 , -A 8 )\ C or, {0,0, Oh / ft {ft , ft , ft } \ 

U-Ag.-Aic-An) J 1(0,0,0) a, J 1(0,0,0) J 

C T2 {0,0, Oh l (-ft,-ft,-fth C (0,0, 0)\ 

I {-76, -77, -78 } J 1(0,0,0) ft J 1(0,0,0) ) , 
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A[Xi [e 2 ]] = 

A[Xi [e 2 ] ] // . {A 6 -► pi , A 7 -> p 2 , A 8 -> p 3 , A 9 -> p 4 , Aio -> Ps , An -> p 6 } 



I -ai (0, 0, 0) 
({0,0,0) -ai 
-£i j-pi, -p 2 , -p3) 



') 



o {pi,p 2 ,p 3 h ( o (o,o, oh 

jp 4 ,P5,p 6 ) Si J 1(76,77,78} 72 J 

j-p4,-p 5 ,-p 6 ) J 1(0,0,0) ai J 1(0,0,0) J 



[ ( 



72 (0,0, Oh j' {-fis, -/3 4 , -/3 5 

J 1(0,0, 



(-76, "77, -7s) 



,0) 



\ ( (0,0,0) A 
J 1(0,0,0) J 



Xi[e 3 ] 



A[Xi [e 3 ] ] = generic; 
Ux l[e 3] [El [1]] == ZERO 

True 



defin[Xi [e 3 ] , Ei[l]] //Expand 

(Ai -a 6 ,0, 0) 



I (0, 0, 

f 

I (0, 0, 0) 



) 1 



(0, 0, Oh l (Ai -a 6 ,0,0}\ ( (0,0,0) 

0) J 1(0,0,0) j 1(0,0,0) 

{a 6 -Ai, 0, Oh < -A 9 (0,0, Oh ( -A 25 I A- . (I. 
J I (0, 0. 







0) 



') ( 



(0, 0, 0) 
(0, 0, 0) 



o, oh ( o 

J 1(0, -A 24 



-Ag 

(A 2 i , 0, 0) 
-A 2 5 



(0, A24, -A23 ) 







) ( 



(0, 0, ol- 
io, 0, 0) , 



A[Xi [e 3 ]] = A[X 1 [e 3 ]] //. 

{Ai -> a 6 , A 9 -> 0, A 2 i -> 0, A 23 -> 0, A 24 -> 0, A 25 -> 0} 



( a 6 (0, 0, 0) 
I (0, 0, 



) 



0) a 6 
A5 (-A6, -A7, -Ag] 

(0, -A 10 ,-A„) 

(-A 22 ,0, 0) 

(0, -A 2 6, -A27 ) A 2 o 



(, 



A4 



(Ag , A7 , Ag 



A 2 



(0, 0, 0) 



<: ) ({0.0.01 X 2 



) (, 
) ( 



"1-20 



(A 22 ,0 



An (-A14, -A15, -Ai 6 ) 

(-A17 , -Ai8 , -Ajq ) Ai 2 



A12 (A14, Ai 

(An, Ai 8 , A19) Ai 

( h (0,0,01 

) ( (0, 0, 0) A 3 



Ux l[e3 ] [E 2 [1]] == ZERO 

True 



defin[Xi [e 3 ] , E 2 [1] ] // Expand 

( (0, 0, 0)\ ( 
((0,0,0) J ((0,0, 



(0, 0, Oh ( {a 6 +A 2 ,0, 0) 

(0,0,0) J ((0,0,0) 
( {-a 6 -A 2 ,0, Oh ( (0, 0, 0)\ 
((0,0,0) j ((0,0,0) j 
{-Ai3,0, Oh ( (0, 0, Oh 
{0,A 16 ,-A 15 } A 17 J ((0,0,0) J 



( 



A17 (Ai3,0,0) 
(0, -A 16 ,A 15 ) 
(0, 0, 0) \ 
01 J 

(0, 0, 0) 
01 



f 

( (0, 0, 1 

f 

( (0, 0, 1 



) j 



Elemento generico de Der(H3( Os, —), 



A[Xi [e 3 ]] = 

A[Xi [e 3 ]] //. {A 2 -> -a 6 , Ai 3 -> 0, A 15 -> 0, A 16 -> 0, A i7 -> 0} 



A 4 (A 6 ,A 7 ,A 8 h ( ho {A 22 ,0, 0)^ 

10,0,0) a 6 ) U0,A 10 ,A„} A 5 J ({0,A 26 ,A 27 ) 

A 5 {-Ag, -A 7 , -A 8 )\ ( -a 6 (0,0, Oh ( A 12 (A 14 ,0, 0) 

Aio,-A„} A 4 j 1(0,0,0) -as ) l{0,Ai8,Ai 9 } 

j-A 22 ,0,0h ( j-A l4 ,0,0h ( A 3 {0,0, Oh 

J 1(0, -A l8 , 



I 

V (0, -A 2 6, -A 27 



1-20 



-A 19 ) 



Xl [e 3 ] [=3 [1]] == ZERO 

True 

(defin[Xi [e 3 ] , E 3 [1] ] // Expand) == ZERO 

True 

Xl [e 3 ] [Xi [e 3 ]] == ZERO 

True 

(defin[Xi [e 3 ] , X x [e 3 ] ] // Expand) == ZERO 

True 

U Xl [.,] [Xi [e 2 ] ] == ZERO 

True 



defin[Xi [e 3 ] , Xi [e 2 ] ] // Expand 

(A 4 -p 4 ,0, 0) 



i o (0,0, oh i o 

((0,0,0) j ((0,0, 



0) 







\ I {0,0, 0m 
J ((0,0,0) J 



I (p 4 -A 4 , 0, Oh I {0, 0, Oh I {0,0,0} A 

((0,0,0) J ({0,0,0) J ((0,0,0) J 

( (o, 0, oh ( {0,0, oh ( (o, o, oh 

({0,0,0) J ((0,0,0) J ({0,0,0) J, 



A[Xi [e 3 ]] = A[X X [e 3 ]] //. {A 4 ->p 4 } 

( a 6 {0,0, Oh ( p A 

({0,0,0) a 6 j ({O.Aio, 

j' -a 6 (0,0, 0)\ r A 12 

j ({0,0,0) -a 6 J ({0,A 18 , 



{0, 0, 0) 
0) a 6 
A5 (-A6, -A7, -A 8 ) 

(0, -A10, -A n ) p 4 
( {-A 22 ,0, 0) 

1(0, -A 2 6, -A 27 ) A 20 



{A 6 ,A 7 ,A 8 )\ ( A 20 (A 22 ,0, 0\\\ 
) ({0,A 26 ,A 27 ) j 



An) A 5 
a 6 (0, 0, 0) 
0) -a 6 

\ ( {-A 14 ,0,0h ( A 3 (0,0, 0)\ 

J ({0, -A 18 ,-A 19 ) A 12 J ({0,0,0) A 3 J , 



Ap {A,4,0, 0)' 

A19) , 
A3 (0, 0, 0) - 
{0, 0, 0) A 3 
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Xl [e 3 ] [Xi [ei]] == ZERO 

True 



defin[Xi [e 3 ] , Xi[ei]] //Expand 

' i o {o,o, oh i o {h-s s ,o, o) 

{ (0,0,0) J 1(0,0,0) 
f [S 5 -As, 0,0}\ C (0,0, Oh 
1(0,0,0) J 1(0,0,0) J 



.0, Oh 
o J 
. 0, 0} \ 
o J 

( {0,0, Oh I {0,0,0} A /- {0,0,0} A 

, 1(0,0,0) j 1(0,0,0) J 1(0,0,0) J, 



(0,0,0)^ 
(0, 0, 0) 

10.0.0! 
(0, 0, 0) 

{0, 0, 0) 



A[Xi [e 3 ]] = A[Xi [e 3 ]] //. {A 5 -+<5 5 } 

) { P4 

\ ( -a 6 {0,0, Oh ( A12 

j 1(0,0,0) -or 6 J U0,A 18 , 



C ff6 (0, 0, 0) 
{ (0, 0, 0) a 6 



S5 {-A*, -A 7 , -A 8 ) 

{0, -Aio, -An} P4 
C {-A 22 ,0, 0) 

I (0, -A 2 6, -A27 ) A 2 o 



An) 

a 6 (0, 0, 0) 
0) -a 6 
\ ( {-Ai4,0,0}A 

J 1(0, -A l8 ,-A l9 ) A i2 J 



{A 6 ,A 7 ,A 8 )\ < A 20 {A 22 ,0, 0}Y\ 
6 5 J l(0,A 26 ,A 27 ) J 
Aj 2 



(Ai4,0, 0) 

18 , A19 } 

A3 {0, 0, 0) 
(0, 0, 0) A 3 



) ) 



T[Ei[l], Ei[l], Xi[e 3 ]] ==X X [e 3 ] 

True 



A[Xi [e 3 ] ] -Leib[E! [1] , E x [1] , X x [e 3 ] ] // Expand 

(( (0, 0, Oh 

{ (0, 0, 0) J 

( {0,0, Oh 

{ {0, 0, 0) J 



f {0,0, Oh 
{ (0, 0, 0) J 

f 

I {0, o f 


{0,j3 5 -A, 8 , -yS 4 -A 19 } 



( {0,0, Oh 
{ {0, 0, 0) J 



(0,0,0)' 
0) 

{0,0, Oh / /?6+Ai 2 {/3 2 +Ai4,0, 1 

0) J 1(0, Ai 8 -p s ,Pi +A19} 

C {0,0, Oh C {-jS 2 -Ai 4 ,0,0h / A 3 {0, 0,0h 

1(0,0,0) J i{0,ft -A 18 , -yS 4 -A 19 } /?6+Ai 2 J [\ 



(0, 0, 0) 



A[Xi [e 3 ]] = 

A[Xi [e 3 ]] //. {A 3 -> 0, A12 -> -/3 6 , A14 -> -/3 2 , Ais ->/3 5 , A i9 -> -/3 4 } 



( a 6 
{ {0, 0, 1 



(0,0, Oh I p 4 (A 6 ,A 7 ,A 8 ) 

0) a 6 J Uo,Ai ,A n } 6 5 
S 5 j-A 6 , -A 7 , -A 8 )\ / -a 6 (0,0,0) 
{0, -Aio, -An} P4 J 1(0,0,0) -ar 6 

f {-A 22 , 0,0}\ C {j8 2 ,0,0} 

, 1(0, -A 26 ,-A 27 ) A 20 J [{0,-05,0*} -Pe 



\ ( A 20 |A :2 .0. 0) 
J U0,A 26 ,, 



, 0, 0) y 

26,A 2 7) J 

-ft {-£2, 0,0} 

C (0,0,0) 
J I {0, 0, 0} 



) ( 



2,0, oh 

j 

0, 0) \ 
J , 



T[Ei [1], X! [e 3 ], E X [1]] == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



Leib[Ei [1] , Xi [e 3 ] , E x [1] ] == ZERO 

True 

T[E 2 [1], E 2 [l], Xi[e 3 ]] ==X X [e 3 ] 

True 



A[Xi [e 3 ] ] - Leib[E 2 [1] , E 2 [1] , X x [e 3 ] ] // Expand 

( {0,0, Oh I 

1(0,0,0) J { 

\ < o jo, o, o) \ i o {o,o, oh 

j 1(0,0,0) J 1(0,0,0) J 

I o (r2-A 2 2,o,o)^j f o {o,o, oh c o jo, o, oh 

AtO, -75-^26, 74 - A 27 } A 20 -76 j 1(0,0,0) j 1(0,0,0) j 



(0, 0, 0) ^ ( (0, 0, 0} \ f A 20 - 76 (A22 - 72 , 0, 0} > 

(0,0,0) J 1(0,75 + A 26 , A 27 -74) , 

{0, o, oh /- (o, 0, o}\ r (0,0,0)- 



A[Xi [e 3 ] ] = A[Xi [e 3 ] ] / / . {A 20 -> Y6 , ^22 -> Y2 , A 26 -> -y 5 , A 27 -> y 4 } 

C a 6 {0,0, Oh f p 4 {A 6 ,A 7 ,A 8 )\ I y 6 {72, 0,0) \ < 

1(0,0,0) a 6 J I {0,^10, An} 6 5 J 1(0, -75,74) J 

( <5 5 (-A 6 , -A 7 , -A 8 }\ t -a 6 {0, 0,0h / -/3 6 {-#-,0, Oh 

[{0, -Aio,-A„} p 4 J 1(0,0,0) -or 6 J [ {0, /3 5 , -/3 4 ) J 

C (-72,0, oh f {j8 2 ,o,o}a c {0,0, Oh 

1(0,75,-74 ) 76 J 1 (0,-/35, /3 4 ) -ft J 1(0,0,0) J , 



T[E 2 [1] , X X [e 3 ] , E 2 [1] ] == ZERO 

True 



Leib[E 2 [1] , Xi [e 3 ] , E 2 [1] ] == ZERO 

True 

T[Ei [1] , E 2 [1] , X X [e 3 ] ] == ZERO 

True 



(Leib[Ei [1] , E 2 [1] , Xi [e 3 ] ] // Expand) == ZERO 

True 



T[E 2 [1] , E X [1] , X! [e 3 ] ] == ZERO 

True 



(Leib[E 2 [1] , Ei [1] , Xi [e 3 ] ] // Expand) == ZERO 

True 
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T [Ex [1] , Xi [e 3 ] , E 2 [1] ] == X X [e 3 ] 

True 

A[Xi [e 3 ] ] -Leib[E! [1] , X X [e 3 ] , E 2 [1] ] == ZERO 

True 

Ux l[ei] [Xi [e 2 ]] ==X 1 [ei] 

True 

(A[Xi[ei]] -defin[Xi [e x ] , Xi [e 2 ] ] //Expand) == ZERO 

True 

T [Ei [1] , X X [ei] , Xx [e 3 ] ] == ZERO 

True 

(Leib[Ei [1] , Xi [ei] , Xi [e 3 ] ] // Expand) == ZERO 

True 

T[Xi [ei] , E X [1] , X X [e 3 ] ] == ZERO 

True 

(Leib[Xi [ei], E x [1] , Xi [e 3 ] ] //Expand) == ZERO 

True 

T[E 2 [1] , X X [ei] , Xx [e 3 ] ] == ZERO 

True 

(Leib[E 2 [1] , Xi [ei ] , Xi [e 3 ] ] // Expand) == ZERO 

True 

T[X X [e 3 ], X X [ei], Xitei]] == ZERO 

True 



(Leib[Xi [e 3 ], Xi[ei], Xi[ei]] //Expand) == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



T[X X [ei], X X [e 3 ], Xifei]] == ZERO 

True 

(Leib[Xi [ei] , Xi [e 3 ] , Xi [ei] ] // Expand) == ZERO 

True 

T[Xi [e 3 ], X X [e 3 ], Xitei]] == ZERO 

True 

(Leib[Xi [e 3 ] , Xi[e 3 ], Xi[ei]] //Expand) == ZERO 

True 

T[Xi [e 3 ] , X X [e 3 ] , X X [e 2 ]] == ZERO 

True 

(Leib[Xi [e 3 ] , Xi [e 3 ] , Xi [e 2 ] ] // Expand) == ZERO 

True 

T[Xi [e 3 ], X X [e 3 ], X![e 3 ]] == ZERO 

True 

(Leib[Xi [e 3 ] , Xi [e 3 ] , Xi [e 3 ] ] // Expand) == ZERO 

True 

T[Xi [e 3 ] , X X [ei], X X [e 3 ]] == ZERO 

True 

(Leib[Xi [e 3 ] , Xi[ei], Xi[e 3 ]] //Expand) == ZERO 

True 

A[X X [e 3 ]] = 

A[Xi [e 3 ] ] // . {A 6 -> 171 , A 7 -» 772 , A 8 -> r? 3 , X 10 -» r? 4 , An -» r? 5 } 

I a 6 {0,0, 0)\ t p 4 {r)um,m}) ( 76 (72 , 0, 0}\ < 

1(0,0,0) a 6 J { (0,774,%) 8 5 J 1(0,-75,74) J 

f $5 {-m,-m,-m}\ ( -a 6 {o,o,o}\ i -/3 6 {-/3 2 ,o,o}\ 

1(0,-774,-%) p 4 J 1(0,0,0) -or 6 J I {0, j3 5 ,-/3 4 } J 

7- {-72, 0,0} A f {/3 2 ,0,0}\ f {0,0,0} \ 
> 1(0,75,-74 ) 76 J 1(0, -/3 5 , Pa] -fie ) 1(0,0,0) J , 
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Xi[e 4 ] 

A[Xi [e 4 ] ] = generic; 
U Xl [e 4 ] [Ei [1]] == ZERO 

True 



defin[Xi [e 4 ] , Ei[l]] //Expand 

( ( {0,0, Oh ( {0, A! -a 7 ,0h ( {0, 0, Oh 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) J 

I {0,a 7 -Ai,0}\ ( -A 10 {0,0, Oh ( -A 26 (0, -A 21 ,0) 

1(0,0,0) J 1(0,0,0) -Aio J U-A 2 4,0, A 22 ) 

( o (o, o, o)\ /- o (o, A 2 i,oh ( o {o,o, oh 

> 1(0,0,0) J l(A 24 ,0,-A 22 ) -A 26 J 1(0,0,0) J 



A[Xi [e 4 ]] = 

A[Xi [e 4 ] ] // . {Ai -> a 7 , Aio -> 0, A 2 i -> 0, A 22 -> 0, A 24 -> 0, A 26 -> 0} 

( a 7 (0,0, Oh C A 4 {A 6 ,A 7 ,A 8 )\ ( 

1(0,0,0) a 7 J i(A 9 ,0,A„) A 5 J 1{A 25 ,0,A 27 ) 

r A 5 {-A 6 , -A 7 , -A 8 h f A 2 (0, 0, 0) \ f A 12 {A 14 , A 15 

1{-A 9 ,0, -An} A 4 j 1(0,0,0) A 2 j i(A 17 , A 18 ,A 19 ) A 13 

f (0, -A 23 ,0h ( Ai 3 {-Ai 4 ,-Ai 5 ,-Ai 6 h ( A 3 (0,0,0) 

i(-A 25 ,0, -A 27 ) A 20 J i(-A 17 ,-A 18 ,-A 19 ) Ai 2 J 1(0,0,0) A 3 

Ux lt e 4 ] [E 2 [1]] == ZERO 

True 

defin[Xi [e 4 ] , E 2 [1] ] // Expand 

( {0, 0, 0)\ / {0, a 7 +A 2 ,0)\ ( Ai 8 {0, A 13 ,0h 

1(0,0,0) J 1(0,0,0) J i(A 16 ,0, -A 14 ) J 

( {0, -a 7 - A 2 , 0) \ ! (0, 0, 0) \ f {0, 0, 0) \ 

1(0,0,0) j 1(0,0,0) J 1(0,0,0) J 

( {0, -A 13 ,0)\ / {0, 0, 0)\ ( {0, 0, Oh 

A(-Ai6,0, Ai 4 ) Ais J 1(0,0,0) J 1(0,0,0) J , 

A[Xi [e 4 ] ] = A[Xi [e 4 ] ] // . {A 2 -> -a 7 , A i3 -> 0, A i4 -> 0, Ai 6 -> 0, A i8 -> 0} 

I a 7 (0, 0, 0)\ / A 4 {A 6 ,A 7 ,A 8 )\ / A 20 (0, A 23 ,0)\ 

1(0,0,0) a 7 J i{A 9 ,0,A u ) A 5 J 1{A 25 ,0,A 27 ) J 

( A 5 {-A 6 ,-A 7 ,-A 8 )\ / -ar 7 {0,0, Oh ( A 12 (0,A 15 ,0)\ 

U-A 9 ,0, -A„} A 4 J 1(0,0,0) -<*, J i(A 17 ,0,A 19 ) J 

( (0, -A 23 ,0h ( {0, -Ai 5 ,Oh ( A 3 (0,0, 0)\ 

. U-A 25 ,0, -A 27 ) A 20 J U-Ai 7 ,0, -A 19 ) A 12 J 1(0,0,0) A 3 J 



Elemento generico de Der(H3( Os, —), 



Ux lt e 4] [E 3 [1]] == ZERO 

True 

(defin[Xi [e 4 ] , E 3 [1] ] // Expand) == ZERO 

True 

U Xl [e 4] [Xi [e 4 ] ] == ZERO 

True 

(defin[Xi [e 4 ] , X x [e 4 ] ] // Expand) == ZERO 

True 

U Xl [e 4] [Xi [e 3 ]] == ZERO 

True 

defin[Xi [e 4 ] , Xi [e 3 ] ] // Expand 

' e o {o,o, oh i o {0, -/7 4 -a 9 , Oh i o {0,o, 0}y 

[{0,0,0} J 1(0,0,0} J 1(0,0,0} J 

I {0, 7/ 4 +A 9 ,0h I {0, 0, 0} A I (0, 0, Oh 

1(0,0,0} J 1(0,0,0} J 1(0,0,0} J 

( (0, 0, Oh I {0,0, Oh ( {0,0, Oh 

, 1(0,0,0} j 1(0,0,0} j 1(0,0,0} ), 

A[Xi [e 4 ]] =A[Xi[e 4 ]] //• {A 9 ->-r? 4 } 

f C ff 7 (0,0, Oh I A 4 (A 6 ,A 7 ,A 8 }\ / A 20 {0,A 23 ,0h 

1(0,0,0} a-, J U-i/4,0,Aii} A 5 J [{A 25 ,0,A 27 } J 

^ A 5 {-A 6 , -A 7 , -A 8 h C -a n (0, 0, 0} \ ( A 12 (0, A 15 , 0} A 

1(174,0, -An} A 4 J 1(0,0,0} -<*, J [{A 17 ,0,A l9 } J 

C (0, -A 23 ,0}\ ( (0, -A 15 ,0h f A 3 (0,0, Oh 

, l(-A 25 ,0,-A 27 } A 20 J U-Ai7,0,-Ai 9 } Ai 2 J 1(0,0,0} A 3 J , 

U Xl t e 4] [Xi [e 2 ] ] == ZERO 

True 

defin[Xi [e 4 ] , Xi [e 2 ] ] // Expand 

' I {0,0, Oh I (0, A 4 -p 5 ,0h ( (0, 0, Om 

[{0,0,0} J 1(0,0,0} J [{0,0,0} J 

( (0, p 5 -A 4 ,0h ( {0,0, Oh z' (0,0, Oh 

[{0,0,0} j [{0,0,0} J [{0,0,0} J 

(0 jo, o, oh (0 (o,o, oh ( o {o, o, oh 

[{0,0,0} J [{0,0,0} J [{0,0,0} J, 
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A[Xi [e 4 ]] = A[X X [e 4 ]] //. {A 4 ->p s } 

f a n {0,0, Oh ( p 5 {A 6 ,A 7 ,A 8 )\ r A 20 (0, A 23 ,0)y 

1(0,0,0) a 7 J U-i74.0,An} A 5 j 1{A 25 ,0,A 27 ) J 

C A 5 {-A 6 ,-A 7 ,-A 8 )\ / -a n (0, 0, Oh / A 12 {0,A 15 ,0}\ 

Ifo.O, -A n } Ps J 1(0,0,0) -a 7 J l(A 17 ,0,A 19 ) J 

C {0, -A 23 ,0h t {0, -A 15 ,0h C A 3 (0,0, Oh 

. l(-A 25 ,0, -A 27 ) A 20 J U-Ai7,0, -Ai 9 } A12 J 1(0,0,0) A 3 J , 



U Xl [. 4 ] [Xi [ei] ] == ZERO 

True 



defin[Xi [e 4 ] , Xi [ei] ] // Expand 

' ( {0,0, Oh ( (0, A 5 -S 6 ,0}\ ( 

{ (0, 0, 0) J { (0, 0, 0) j I (0, 0, 0) 

I {0,<56-A 5; 0h I {0,0, Oh I {0,0, Oh 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) J 

f (0,0, Oh ( {0,0, Oh f (0,0, Oh 

1(0,0,0) j 1(0,0,0) J 1(0,0,0) ), 



A[Xx [e 4 ]] = A[X X [e 4 ]] //. {A 5 -> «5 6 } 

ff 7 (0, 0, 0) 

(0, 

5 6 



(( 

f ' 

UIJ4.0, 

( 



h f PS 

) U-174,0, 



All) P5 

(0, -A 23 ,0) 

(~A 2 5, 0, -A 27 ) A 20 



An) 

{-A 6 ,-A 7 ,-A 8 )\ I -an (0, 0, 0) \ 

J 1(0,0,0) -a 7 J i(A 17 ,0,Ai 9 ) 



(A 6 , A 7 , A 8 ) 
5 6 



) ((-A, 7 , 



(0, -Ai5,0) 

0, -A19) A J2 



\ ( A 20 (0, A 23 ,0)\ 
J l(A 25 ,0,A 27 ) J 
Ai 5 ,0h 
J 
j' A 3 (0,0, 0)\ 
J 1(0,0,0) A 3 J , 



T[Ei[l], Ei[l], X![e 4 ]] ==Xx [e 4 ] 

True 



A[X X [e 4 ]] -Leib[E![l], 

(( {0,0, 0}\ 

I (0, 0, 0) J 

( (0,0, 0}\ 

I {0, 0, 0) J 

C {0,0, oh t 

A {0,0,0} J U-ft- 



l[1], X x [e 4 ]] //Expand 

( {0,0, Oh 

I {0, 0, 0) J 

( {0,0, Oh 

I {0, 0, 0) J 

{0,-j3 2 -Ai 5 ,0h 

,0,/3 3 -A 19 ) ^ 7 +A 12 J 



{0, 0, 0} \ 
(0, 0, 0) J 
fa + Ai 2 {0, fa + A15 , 1 

(j8 5 +A n ,0, A 19 -/3 3 ) 
C A 3 {0,0, Oh 
I (0, 0, 0) A 3 J 



( 



Elemento generico de Der(H3( Os, —), 



A[Xi [e 4 ]] = 

A[Xi [e 4 ]] //. {A 3 -> 0, A12 -> -/3 7 , Ais -> -/3 2 , Ai 7 -> -/3 5 , A i9 -> /3 3 } 

j' ff 7 {0,0,0)\ j' p 5 {A 6 ,A 7 ,A 8 )\ ( A 20 {0,A 23 ,0}V 

[{0,0,0} a 7 J {{-r, A , 0,A„} <J 6 J l(A 25 ,0,A 27 ) J 

C <J 6 {-A 6 ,-A 7 ,-A 8 )\ / -or, (0,0, Oh C -yS 7 (0, -/3 2 ,0)\ 

I {1/4,0, -A„) p 5 J 1(0,0,0) -07 J l{-ft,0,j3 3 } J 

j' o (o, -A 23 ,oh t o (o,/3 2 ,o)\ j' o (o,o, oh 

. l(-A 25 ,0,-A 27 ) A 20 j I {ft.O, -A) J 1(0,0,0) J , 

T [Ei [1], X X [e 4 ], Ei [1]] == ZERO 

True 



Leib[Ei [1] , Xi [e 4 ] , E x [1] ] == ZERO 

True 



T[E 2 [1] , E 2 [1] , Xi [e 4 ] ] == Xi [e 4 ] 

True 



A[Xi [e 4 ] ] -Leib[E 2 [1] , E 2 [1] , Xi [e 4 ] ] // Expand 

( (0,0, Oh ( {0,0, Oh ( A 20 -y 7 (0,A 23 -72,0)^ 

1(0,0,0) J 1(0,0,0) j l(A 25 - r5 ,0, 73 +A 27 ) , 

( (0,0, Oh ( {0,0, Oh ( (0,0, Oh 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) J 

( (0,7 2 -A 23 , Oh ( (0, 0, 0)\ j' (0, 0, 0)\ 

A(75 -A 25 , 0,-7 3 -A 27 ) A 20 -77 J 1(0,0,0) j 1(0,0,0) j 

A[Xi [e 4 ] ] = A[Xi [e 4 ] ] / / . {A 20 -> y 7 , A 23 -> y 2 , A 25 -> y 5 , A 27 -> -y 3 } 

j' a n (0,0, Oh ( P5 {A 6 ,A 7 ,A 8 )\ ( 7l (0, y 2 , 0} A 1 

1(0,0,0) ai J l(-774,0,An) $6 J l(75 , 0,-7 3 ) J 

( 6 6 {-A 6 ,-A 7 ,-A 8 )\ ( - ai (0,0, Oh ( -fo (0, -/3 2 ,0}\ 

UI74.0, -A„) p 5 J 1(0,0,0) -ff 7 J U-ft.O.As} J 

( {0,-7 2; 0} \ ( (0,02, Oh C {0,0, Oh 

, U-75,0,73} 77 J l{ft,0,-/5 3 ) -/J 7 J 1(0,0,0) J , 

T[E 2 [1] , Xi [e 4 ] , E 2 [1] ] == ZERO 

True 



Leib[E 2 [1] , Xi [e 4 ] , E 2 [1] ] == ZERO 

True 
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T [Ei [1] , E 2 [1] , X X [e 4 ] ] == ZERO 

True 

(Leib[Ei [1] , E 2 [1] , Xi [e 4 ] ] // Expand) == ZERO 

True 

T[E 2 [1] , E X [1] , Xi [e 4 ] ] == ZERO 

True 

(Leib[E 2 [1] , Ei [1] , Xi [e 4 ] ] // Expand) == ZERO 

True 

T[Ei [1] , Xi [e 4 ] , E 2 [1] ] == Xi [e 4 ] 

True 

A[Xi [e 4 ] ] -Leib[Ei [1] , Xi [e 4 ] , E 2 [1] ] == ZERO 

True 

T [Ei [1] , Xi [ei] , Xi [e 4 ] ] == ZERO 

True 

(Leib[Ei [1] , Xi [e x ] , X x [e 4 ] ] // Expand) == ZERO 

True 

T[Xi [ei] , Ei [1] , Xi [e 4 ] ] == ZERO 

True 

(Leib[Xi [ei], E x [1] , X x [e 4 ] ] //Expand) == ZERO 

True 

T[E 2 [1] , Xi [ei] , Xi [e 4 ] ] == ZERO 

True 



(Leib[E 2 [1] , Xi [ei ] , X x [e 4 ] ] // Expand) == ZERO 

True 



Elemento generico de Der(H3( Os, - j 



T[X X [e 4 ], X X [ei], X![ei]] == ZERO 

True 

(Leib[Xi [e 4 ] , Xi [ei] , Xi [ei] ] // Expand) == ZERO 

True 

T[X X [ei], X X [e 4 ], X![ei]] == ZERO 

True 

(Leib[Xi [ei ] , Xi[e 4 ], Xi[ei]] //Expand) == ZERO 

True 

T[X X [e 4 ], X X [e 3 ], X![ei]] == ZERO 

True 

(Leib[Xi [e 4 ] , Xi [e 3 ] , Xi [ei] ] // Expand) == ZERO 

True 

T[X X [e 3 ], X X [e 4 ], Xi[e 4 ]] == ZERO 

True 

(Leib[Xi [e 3 ] , Xi [e 4 ] , Xi [e 4 ] ] // Expand) == ZERO 

True 

T[X X [e 4 ], X X [e 4 ], Xi[e 4 ]] == ZERO 

True 

(Leib[Xi [e 4 ] , Xi [e 4 ] , Xi [e 4 ] ] // Expand) == ZERO 

True 

T[X X [e 4 ], X X [ei], X![e 3 ]] == ZERO 

True 



(Leib[Xi [e 4 ], Xi[ei], Xi[e 3 ]] //Expand) == ZERO 

True 
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A[Xi [e 4 ] ] = A[Xi [e 4 ] ] // . {A 6 -> e x , A 7 -> e 2 , A 8 -> e 3 , An -> e 4 } 

ai (0,0,0)^ ( p 5 {ei,e 2 ,e 3 h ( y 7 {0,y 2 ,0} 



( a 7 
{ {0, 0, 

{{ri4,0, -e 4 ) 

l ( 



') (c- 



1 f 71 



{-ei, -e 2 , -e 3 ) 

P5 

{0,-72,0} 
(-75,0,73) y 7 



K2,0h 
73) J 
f -ar 7 {0,0, Oh ( -ft {0, -ft, Oh 
J { {0,0,0} -a, J W-ft,0,ft} ) 
\ ( {0,ft,0h t {0,0,0} 

J lift, 0, -ft} -ft J 1(0, 



. 0, 0} 







Xi[e 5 ] 



A[Xi [e 5 ] ] = generic; 
U Xl [e 5 ] [Ei [1]] == ZERO 

True 



defin[Xi [e s ] , Ei[l]] //Expand 



{0, 0, 0} 



{ 

\ {0, 0, 0} 
I {0,0,a 8 -A,}\ ( 
1(0,0,0} J 1(0,0,0} -A 



(0, 0, Ai-a 8 }\ 
(0, 0, 0} J 

An {0,0,0}' 



1(0,0 



{0, 0, 0} 
(0, 0, 0} 



>,0h t • 

11 I \{A 23 , 

0, oh / (o, 0, A 2 ,h ( (o,o, ok 

J U-A23, A 22 ,0} -A 27 J 1(0,0,0} , 



{0,0, OK 
0} 
A 27 (0,0, -A 2 ,K 
-A 22 ,0} 



A[Xi [e 5 ]] = 

A[Xi [e 5 ]] //. {Ai ->a 8 , An -» 0, A 2 i -> 0, A 22 -> 0, A 23 -> 0, A 27 -> 0} 



( «8 

{ {0, 0, 1 



(0, 0, 0} 



A5 {-^6, -A 7 , -A 8 ) 

,{-A 9 ,-Aio,0} A 4 



) ( 
) 



A4 (A6 , A 7 , A 8 ) 
{A 9 ,Aio,0} A 5 

{ A 2 (0, 0, 0} 
I {0, 0, 



0} 



f ° 

I W-A25,- 



A 26 ,0} 



(0, 0, -A24} 
A 2 o 



) (, 



A13 



-An, -Ai 8 , -A19} 



) ( 
) ( 



A 2 

A14, -A15, -Al6) 

Ai 2 



A 20 {0, 0, A 
(A 25 ,A 26 ,0) 
Ai 2 {A14, A15 

(An, Ai8, A19) A13 
\ ( A 3 {0,0,0} 

) { {0, 0, 0} A 3 



Xl[ e 5 ] [E 2 [1]] == ZERO 

True 



defin[Xi [e 5 ] , E 2 [l]] //Expand 

I {0, 0, 0}\ / (0, 0, a 8 +A 2 }\ t A i9 {0,0,Ai 3 }y 

1(0,0,0} j 1(0,0,0} J U-A.15, Ai4,0} J 

I {0, 0, -or 8 - A 2 } \ I {0, 0, Oh I {0,0,0} 

1(0,0,0} J 1(0,0,0} J 1(0,0,0} 

I {0, 0, -A i3 h I (0, 0, 0}\ C {0,0,0}- 

A{Ai5,-Ai4,0} A 19 j [{0,0,0} J 1(0,0,0} , 



Elemento generico de Der(H3( Os, —), 



A[Xi [e s ] ] = A[Xi [e 5 ] ] // . {A 2 -> -a 8 , A i3 -> 0, X lt -> 0, A 15 -> 0, A i9 -> 0} 



( 



a» (0, 0, 0) 
{0, 0, 0) as 
A5 {-A.6, -A7, -A' 

A 9 ,-A 10 ,0) 



) ( 



A4 {A6 , A7 , As } 

(A 9 ,A 10 ,0) A 5 



) ( 



A 20 {0,0,^24}^ 

(A 25 ,A 26 ,0) 



\ C -a 8 {0, 0,0} \ C A 12 {0, 0, A 16 J 
A 4 J 1(0,0,0} -a g J l{Ai7,A 18 ,0} 



(,- 

C (0,0, -A 24 h ( 

, U-A25, -A 26 ,0} A 20 J U-Ai7,-Ai8,0} 





(0,0, -A 16 )\ / X 3 {0,0, Oh 
A12 J 1(0,0,0) A 3 J , 



Xl [e 5 ] [E 3 [1]] == ZERO 

True 

(defin[Xi [e s ] , E 3 [1] ] // Expand) == ZERO 

True 

Xl [e 5 ] [Xi [e s ]] == ZERO 

True 

(defin[Xi [e 5 ] , X x [e 5 ] ] // Expand) == ZERO 

True 

U Xl [e 5 ] [Xi [e 4 ] ] == ZERO 

True 



defin[Xi [e 5 ] , Xi [e 4 ] ] // Expand 

( (0,0, Oh ( (0,0,-e 4 -Aioi 

{ (0, 0, 0) J { (0, 0, 0) 
I (0, 0, 64+Aioh ( (0,0, Oh 
1(0,0,0) J 1(0,0,0) J 



(0, 0, 0) 
(0, 0, 0) 



( (0,0, Oh 

j 1(0,0,0) J 



(0,0,0)^ 

(0, 0, 0) 

(0, 0, 0) 

(0, 0, 0) 

(0, 0, 0) 

(0, 0, 0) 



) 



-64 } 



A[X X [e s ]] = A[X X [e 5 ]] //. {A 10 

( as (0,0, 0)\ ( A 4 (A 6 ,A 7 ,A 8 )\ ( A 20 (0,0,A 24 h 

1(0,0,0) as J i(A 9 ,-e 4 ,0} A 5 J l(A 25 ,A 26 ,0) J 

A 5 f-A 6 , -A 7 , -A 8 h ( -as (0, 0, 0) A ( A 12 (0,0,A 16 )\ 

v (-A 9 ,e 4 ,0) A 4 J 1(0,0,0) -as J l{Ai 7 ,Ai 8 ,0) J 

( (0, 0, -A 24 h ( (0, 0, -Ai 6 h ( A 3 (0,0, Oh 

U-A25, -A 26 ,0) A 20 J [{-A 17 ,-A 18 ,0} A l2 J 1(0,0,0) A 3 J , 



Ux l[e5] [Xi [e 3 ]] == ZERO 

True 
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defin[Xi [e s ] , Xi [e 3 ] ] // Expand 



' ( {0,0, Oh ( {0,0, -J75 -A 9 h i (0, 0, 0)V 
WO, 0,0) j 1(0,0,0) J 1(0,0,0) J 

( o (o,o, 77 5 +x g }\ t o (0,0, oh i o (0,0, oh 

1(0,0,0) J 1(0,0,0} J 1(0,0,0} J 

(0 (o, o, o}\ f o (o, o, o\\ i o (0,0, oh 

. 1(0,0,0} J 1(0,0,0) J 1(0,0,0} J, 

A[X X [e s ]] =A[X 1 [e 5 ]] //. {A 9 ^-r7 S } 

( a 8 {0,0,0}\ j' A 4 (A 6 ,A 7 ,A 8 )\ ( A 20 (0,0,A 24 }\ 

1(0,0,0} a 8 J I {-^ 5 , -64,0} A 5 J ((A 25 ,A 26 ,0) J 

( A 5 {-A 6 , -A 7 , -A 8 }\ l -a g (0, 0, 0)\ f A 12 (0, 0, A 16 }\ 

U?75,e4,0} A 4 J 1(0,0,0} -a 8 J ((A 17 ,A 18 ,0) J 

-Aifil^j C A 3 {0,0, Oh 

12 J 1(0,0,0} A 3 J , 



(0,0, -A 24 h ( {0,0, -A 16 h ( A 3 {0,0, OK 

. {-^25, ~A 2 6, 0) A 20 ) { {-An , -A[ 8 , 0} Ai 



U Xl [e 5 ] [ X l [e 2 ] ] == ZERO 

True 



defin[Xi [e s ] , Xi [e 2 ] ] // Expand 

' ( (0,0, 0}\ j' {0,0,A 4 -p 6 )\ ( {0,0, Om 
({0,0,0) J 1(0,0,0} J i{0,0,0) j 

f o (o,o,p 6 -A 4 }\ / o {o,o, oh ( o {o,o, oh 

1(0,0,0) J 1(0,0,0} J 1(0,0,0) J 

I' o (o, o, oh j' o (o, o, oh ( o {o, o, oh 

({0,0,0) J ({0,0,0} J ({0,0,0) J, 

A[X! [e s ]] = A[X X [e 5 ]] //. {A 4 ->p 6 } 

/- a 8 (0,0,0}\ I p 6 {A 6 ,A 7 ,A 8 )\ I A 20 (0,0,A 24 }V 

({0,0,0) a 8 J ({-?75,-e4,0} A 5 j ({A 25 ,A 26 ,0) J 

( A 5 {-A 6 , -A 7 , -A 8 )\ / -a 8 {0,0, 0}\ / A 12 (0,0,A 16 )\ 

({?75,e 4 ,0} p 6 J ((0,0,0) -or 8 J ({A 17 ,A 18 ,0} J 

C {0,0, -A 24 h ( {0,0, -A 16 h f A 3 {0,0, Oh 

A(-A25,-A 2 6,0) A 20 J ({-A 17 , -A 18 ,0} A 12 J ({0,0,0} A 3 J , 



U Xl [a 5 ] [Xi [ ei ]] == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



defin[Xi [e s ] , Xi [ei] ] // Expand 



' i o {o,o, oh t o {0, o, a 5 ( o {o, o, oh 

{ {0, 0, 0) J { {0, 0, 0) j [ {0, 0, 0) J 

C {0, 0, (5 7 - A 5 } A < {0, 0, Oh c {0, 0, 0) \ 
I {0, 0, 0) j [ {0, 0, 0) J { {0, 0, 0) J 

i o {o,o, oh c o {o,o, oh c o {0, o, oh 

, 1(0,0,0) J 1(0,0,0) J 1(0,0,0) ), 

A[Xi [e s ]] = A[Xi [e 5 ]] //. {A 5 -+<5 7 } 

I a 8 {0,0,0)\ C p 6 (A 6 ,A 7 ,A 8 }\ t A 20 {0,0,A 24 h 

1(0,0,0} a 8 J I {-ijs, -64,0} <5 7 i l(A 2 5,A 26 ,0) J 

' cS 7 {-A 6 , -A 7 , -A 8 h / -org (0, 0, Oh ( A 12 (0, 0, A 16 h 

,{?75,e4,0} P6 J 1(0,0,0} -a„ J i(A 17 ,A 18 ,0) j 

(0,0, -A 24 h ( (0,0, -A 16 h c A 3 {0,0, Oh 

,(-A 25 ,-A 26 ,0) A 20 J U-Ai7,-Ai 8 ,0} A 12 J 1(0,0,0} A 3 J , 

T[E X [1], Ei[l], Xi[e 5 ]] ==X X [e 5 ] 

True 



A[Xi [e s ] ] -Leib[Ei [1] , Ex [1] , X X [e 5 ] ] // Expand 



( {0,0, Oh /" {0,0, Oh / 

((0,0,0) J 1(0,0,0) J ( 

C (0, 0, Oh C {0,0,0} A 

({0,0,0} j 1(0,0,0) j 

( {0,0, Oh I {0,0, -ft -A 16 )\ I A 3 

1(0,0,0} J l{/} 4 -A 17 ,-y3 3 -A 18 ,0} /Jg+A 12 J 1(0,0, 



(0, 0, 0} \ 
(0, 0, 0) J 
/3 8 +A 12 (0,0,yS 2 +A l( 
{An -/3 4 ,j8 3 +Ai 8 ,0} 



A[Xi [e s ]] = 

A[Xi [e s ]] //. {A 3 -> 0, A12 -> -J3 8 , Ai 6 -> -jS 2 , A i7 -> /3 4 , A i8 -/3 3 } 

( a 8 {0, 0, Oh / p 6 (A 6 ,A 7 ,A 8 }\ / A 20 {0, 0, A 24 }V 

1(0,0,0) ff 8 J U-^,-e 4 ,0} 5 7 J 1{A 25 ,A 26 ,0} J 

C <J 7 {-A 6 , -A 7 , -A 8 h / -org (0,0, Oh ( -fit {0,0, -fth 

I {ift, et.O} p 6 J 1(0,0,0} -« g J I {ft, -ft.O} J 

C (0,0, -A 24 h l {0,0,j3 2 h C {0,0, Oh 

A(-A 25 ,-A 26 ,0) A 20 J U-A.A.O} -/3 8 J 1(0,0,0) J , 

T [Ei [1], X X [e 5 ], Ex [1]] == ZERO 

True 



Leib[Ei [1] , Xi [e 5 ] , E x [1] ] == ZERO 

True 
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T[E 2 [1], E 2 [l], Xi[e s ]] ==X X [e s ] 

True 



A[Xi [e s ] ] -Leib[E 2 [1] , E 2 [1] , X X [e 5 ] ] // Expand 

o (o,o, or 



{0, 0, 0) 
{0, 0, 0) 

i {0,0,7 2 -A 24 . 

A {-74 -A.25, 73 -• 



h I {0, 0,0} W 

J 1(0,0,0) J { 

') 



{0, 0, 0) - 
0) 
( (0,0, Oh 
I {0, 0, 0) J 



A20 - 78 (0, 0, A24 - 72 } ^ 

(74 + A 2 5 , A 26 - 73 , 0) 
C (0, 0, 0) ' 
{ {0, 0, 0) 



■ A26 , 0) A20 - 78 



0, oh 
J 

WO {0, 0, 0) A ( (0, 0, 0) ^1 

J 1(0,0,0) J 1(0,0,0) J 



A[Xi [e s ] ] = A[Xi [e 5 ] ] / / . {A 20 -> y 8 , A 24 -> y 2 , A 25 -> -y 4 , A 26 -> y 3 } 

( «s (0, 0, 0) 



( S 7 



01 
) 

(74 , -73 , 0) 



P6 



) ( 

) u;: 

) 



p 6 (A 6 ,A 7 ,A 8 }\ r 7 8 ( 0,0,72) 

)75,-e4,0} 5 7 J U-74,73,0) 

|-A„. -A 7 . -Ash / -<>x 10. 0.0} j j -h |0. 0. - /•;■ 



0) 

(0,0,-72)^j / {0, 0, j8 2 }>| ( (0,0, Oh 

78 J U-/34,/3 3 , 0} -A J 1(0,0,0) J , 



-as 



{/3 4 , -/3 3 ,0) 







T[E 2 [1] , X X [e 5 ] , E 2 [1] ] == ZERO 

True 

Leib[E 2 [1] , Xi [e 5 ] , E 2 [1] ] == ZERO 

True 

T [Ei [1] , E 2 [1] , Xi [e s ] ] == ZERO 

True 

(Leib[Ei [1] , E 2 [1] , Xi [e 5 ] ] // Expand) == ZERO 

True 

T[E 2 [1] , Ei [1] , Xi [e 5 ] ] == ZERO 

True 



(Leib[E 2 [1] , Ei [1] , Xi [e 5 ] ] // Expand) == ZERO 

True 



T[Ei [1], Xi [e 5 ], E 2 [1]] ==Xi [e s ] 

True 



Elemento generico de Der(H3( Os, —), 



A[X X [e s ] ] -Leib[Ei [1] , Xx [e s ] , E 2 [1] ] == ZERO 

True 

T [Ei [1] , X X [ei] , X X [e s ] ] == ZERO 

True 

(Leib[Ei [1] , Xi [ei ] , Xi [e s ] ] // Expand) == ZERO 

True 

T[Xi [ei], E X [1], Xx [e s ]] == ZERO 

True 

(Leib[Xi [ei], E x [1] , Xi [e s ] ] // Expand) == ZERO 

True 

T[E 2 [1] , Xi [ei] , Xx [e s ] ] == ZERO 

True 

(Leib[E 2 [1] , Xi [ei ] , Xi [e s ] ] // Expand) == ZERO 

True 

T[Xi [e s ] , X X [ei], X X [ei]] == ZERO 

True 

(Leib[Xi [e s ], Xi[ei], Xi[ei]] //Expand) == ZERO 

True 

T[Xi [e 5 ], X X [e 4 ] , X X [ei]] == ZERO 

True 

(Leib[Xi [e s ] , Xi [e 4 ] , Xi [ei] ] // Expand) == ZERO 

True 

T[X X [e 4 ] , X X [e 5 ], X X [e 2 ]] == ZERO 

True 
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(Leib[Xi [e 4 ] , Xi[e s ], Xi[e 2 ]] //Expand) == ZERO 

True 

T[Xi [e 3 ] , X X [e 5 ], X X [e s ]] == ZERO 

True 

(Leib[Xi [e 3 ] , Xi [e s ] , Xi [e 5 ] ] // Expand) == ZERO 

True 

T[Xi [e s ] , X X [e 5 ], X X [e s ]] == ZERO 

True 

(Leib[Xi [e s ] , Xi [e s ] , Xi [e s ] ] // Expand) == ZERO 

True 

T[Xi [e 4 ] , X X [e s ] , X X [e 3 ]] == ZERO 

True 

(Leib[Xi [e 4 ] , Xi [e 5 ] , Xi [e 3 ] ] // Expand) == ZERO 

True 

A[X X [e s ]] =A[Xi [e 5 ]] //. {A 6 A 7 ->0 2 , A 8 3 } 

( a 8 {0,0, 0)\ r p 6 {0i,02 , 3 h ( 7s (0, 0, y 2 }\ 

1(0,0,0) a, J ({-775 ,-64,0} S-i ) U-74,73,0} J 

I 67 {-0i, -02, -03 h f -as {0,0, Oh I -/3 8 {0,0, -/3 2 )\ 
lfe,£4,0) p 6 J 1(0,0,0) -or g J l{/3 4 ,-/3 3 , 0) J 

C {0,0, -y 2 }\ f {0,0, /3 2 h C {0, 0, Oh 

> '(74,-73,0) 78 J l(-/3 4 ,/3 3 ,0) -/3 8 J 1(0,0,0) J , 

Xi[e 6 ] 

A [Xi [e 6 ] ] = generic; 
U Xl [e 6 ] [Ei [1]] == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



defin[Xi [e 6 ] , Ei[l]] //Expand 

i o {o,o, oh i o {o,o, oh i o {o, o, oh 

({0,0,0) J ({Ai -a 3 ,0, 0} J 1(0,0,0) J 

( {0,0, Oh ( -A 6 {0,0, 0)\ ( (0, -A 27 ,A 26 ) 

i{ ff3 -Ai,0,0) J 1(0,0,0) -A 6 J 1{-A 20 ,0,0) -A 22 

t {0,0, 0)\ / -A 22 (0,A 27 ,-A 26 )\ r {0,0, Oh 

, 1(0,0,0) J l(A 20 ,0,0) J 1(0,0,0) J 



A[X X [e 6 ]] = 

A[Xi [e 6 ] ] // . {Ai -> a 3 , A 6 -» 0, A 20 -> 0, A 22 -» 0, A 26 -> 0, A 27 -> 0} 

q-3 (0,0,0}\ ( A4 {0,A 7 ,A 8 }\ /■ {0, A 23 ,A 24 h 



C Q-3 (0,0, 0}\ J- A4 {0,A 7 ,A 8 }\ J- 

1(0,0,0) a 3 j 1(A 9 ,A 10 , A,,) A 5 j l(A 25 , 0, 

( A 5 (0, -A 7 ,-A 8 }\ A 2 (0,0,0}\ A 12 (A 14 ,A 15 

1(-A 9 ,-A 10 ,-A„) A 4 J 1(0,0,0) A 2 J UA17.Ai8.A19} A 13 

I A 2 i (0, -A 23 ,-A 24 h Ai 3 {-Ai4,-Ai5,-A, 6 }\ A 3 (0,0, 0}\ 

, U-A25.0.0} j 1(-A 17 ,-A 18 ,-A 19 ) A 12 j 1(0,0,0) A 3 J 



Xl [e 6 ] [E 2 [1]] == ZERO 

True 

defin[Xi [e 6 ] , E 2 [l]] //Expand 



( {0,0, 0)\ t {0,0, 0}\ t (0,A 19 ,-A 18 )\ 

1(0,0,0) J ((a 3 +A 2 ,0,0) J l(A 12 ,0,0) A 14 J 

( {0,0, Oh I (0, 0, 0)\ j' (0, 0, 0)\ 

\{-a 3 -A 2 ,0, 0} J 1(0,0,0) J 1(0,0,0) J 

C A M (0, -A19, A 18 }\ ( (0, 0, 0)\ ^ (0, 0, 0)\ 

A{-Ai2,0,0) j 1(0,0,0) j 1(0,0,0) j , 



A[Xi [e 6 ] ] = A[Xi [e 6 ] ] // . {A 2 -> -a 3 , A i2 -> 0, A i4 -> 0, A i8 -> 0, A i9 -> 0} 

) ((A 25 ,0. 
{ -a 3 (0,0, Oh ( 

((0,0,0) -a 3 J UA 17 ,0. 

< A 3 {0, 0, 0)\ 
J 1(0,0,0) A 3 J , 



( a 3 {0,0, Oh ( A 4 (0, A 7 ,A 8 )\ / (0, A 23 ,A 24 )^ 

(0,0,0) a 3 J i{A 9 ,Aio,Aii) A 5 J l(A 25 ,0,0) A 2] 

A 5 (0, -A 7 ,-A 8 )\ r -a 3 (0,0, Oh r (0, A 15 , A 16 ) ' 

-A9.-Ai0.-An) A 4 J 1(0,0,0) -a 3 J WA„,0,0) A 13 



A21 {0, -A 23 , -A 24 h C A 13 {0, -A 15 , -Aieh ( A 3 {0,0,0}- 
,{-A 25 ,0,0) J U-Ai 7 ,0,0} 



Ux l[e6 ] [Xi [e 6 ]] == ZERO 

True 



(defin[Xi [e 6 ] , X x [e 6 ] ] // Expand) == ZERO 

True 
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Xl [e 6 ] [Xi [e s ]] == ZERO 

True 



defin[Xi [e 6 ] , Xi[e s ]] //Expand 

{0, 0, 0) 



( o (0,0, oh i 

1(0,0,0) J [\ 




(0, 0, 0) 

{-A u -01,0,0} 

i o (0,0, oh t o (o,o, oh 

I {An +01,0,0} J 1(0,0,0} J 

{ (0, 0, 0} 
{ (0, 0, 0} 



( (0,0, Oh 
, 1(0,0,0} J 



T) { 



(0, 0, 0} 

(0, 0, 0} 

(0, 0, 0} 
0, 0} 

(0,0.0) 

(0, 0, 0} 



(,0, 



o, 0}\ 
o J 

, 0, 0) \ 
o ), 



A[Xi [e 6 ]] = A[Xi [e 6 ]] //. {An 

( «3 (0, 0, 0} \ 
I (0, 0, 0) a 3 J 



-01 } 



' «3 (0, 0, 0} A I A 4 (0, A 7 ,A 8 

(0,0,0) a 3 J i{A 9 ,Ai O ,-0i} A 5 

A 5 (0, -A 7 , -A 8 } \ f -a 3 (0, 0, 0} 

{-A 9 ,-Ai O ,0i} A 4 J 1(0,0,0) -a 3 

( A 2 i (0, -A23 , -A24 ) "\ ( A13 (0, -Ai5,-Aig 



{-A 25 ,0, 0} 







(0,A 23 ,A 24 } 
(A 25 ,0, 0} A21 

(0, Ais.Aie}' 
0} Ai; 
A 3 (0, 0, 0} ' 



l(Ai7,0,« 



(-A 17 ,0, 0) 







(0, 0, 0} 



15 , Aieh 
L13 J 

') J 



Ux l[e6 ] [Xi [e 4 ]] == ZERO 

True 



defin[Xi [e 6 ] , Xi [e 4 ] ] // Expand 



f {0,0, Oh r 
1(0,0,0) J { 
( (0,0, Oh f 

I {ei +Aio,0,0} J 1(0,0,0) 

\ ( 





Aio.O, 0} 
(0, 0, 0) 
(0, 0, 0} 



(0, 0, 0) 

j-e, -Aio.O, 0} 

(0, 0, 0) 



0,0} w (0, 0, 0}y 

J { (0, 0, 0} J 

0, oh f {0,0,0} \ 

j I (0, 0, 0} J 





(0, 0, 0} 

0, oh c (0, 0, Oh c (0, 0, o}\ 

J 1(0,0,0) J 1(0,0,0} j, 



A[Xi[e 6 ]] =A[Xi[e 6 ]] //. {A 10 -»-ei} 



I a 3 {0,0,0} \ 1 
1(0,0,0} a 3 J I 



A 4 



0) ff 3 
A 5 (0, -A 7 ,-A; 

A 9 ,6i,0i} A 4 
A21 (0, -A23, -A 24 } 
U(-A 25 ,0,0) 



(0, A 7 ,A 8 }\ I (0, A 23 ,A 24 h 
{As, -6i,-0!} A 5 J l(A 25 ,0,0} A 2 i J 

{0,Ai 5 ,A 16 h 



\ I -a 3 (0,0, Oh I 

j 1(0,0,0) -a 3 j UAi7,0,« 



A|3 

(-Ai7,0, 0} 



') ( 



(0, 0, 0) A 3 



') J 



Ux l[e6] [Xi [e 3 ]] == -Xi [e 6 ] 

True 



Elemento generico de Der(H3( Os, —), 



A[Xi [e 6 ] ] + defin[Xi [e 6 ] , X x [e 3 ] ] // Expand 

' ( o {o,o, oh < o {o,o, oh ( o jo, o, o)\\ 

({0,0,0) j {{-T]i -A 9 ,0, 0} j ({0, 0, 0) J 

( o {o,o, oh i o {o,o, oh j' o {o, o, oh 

({77! +A 9 , 0, 0) J ({0,0,0) J ({0,0,0) J 

(0 {o, o, oh ( o {o, o, oh ( a 3 jo, o, o)\ 

. ({0,0,0) J ({0,0,0) J ({0,0,0) A 3 J, 



A[Xi [e 6 ]] =A[Xi[e 6 ]] //. {A 9 -»-i7i} 

C «3 {0,0, 0)\ j' A 4 {0,A 7 ,A 8 )\ / {0,A 23 ,A 24 m 

({0,0,0) a 3 J l{-!?i,-ei,-fc} A 5 J ({A 25 ,0,0| A 21 J 

C A 5 {0, -A 7 , -A 8 ) \ / -a 3 {0, 0, 0)\ f {0, A 15 ,A 16 )\ 

Ui?i,6i,0i} A 4 ' ({0,0,0) -a 3 J ({A 17 , 0,0) A 13 j 

\ / A 3 {0,0, Oh 

J ({0,0,0) A 3 J , 



A 2I {0, -A 23 ,-A 24 )\ C A 13 {0, -A 15 ,-A 16 h ( A 3 {0,0,0}* 
,{-A 25 ,0,0) J ({-A 17 ,0,0| 



Ux l[e6] [Xi [e 2 ]] == ZERO 

True 

defin[Xi [e 6 ] , Xi [e 2 ] ] // Expand 

( ( {0, 0, Oh I {0,0, Oh ( 

({0,0,0) J ({A 4 - Pl ,0,0| j ( 

( 



{0,0,0}- 

;/•: -a 4 ,o, 0) 

{0, 0, 0}' 
0) 



I {0,0, Oh /" 

({0,0,0) J ({0,0,i 






{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 






A[Xi [e 6 ]] = A[Xi [e 6 ]] //. {A 4 ->Pi} 

I a 3 {0, 0, Oh I pi {0, A 7 ,A 8 )\ / {0, A 23 ,A 24 )^ 

({0,0,0) a 3 J I {-/?!, A 5 J ({A 25 ,0,0| A 21 J 

f A 5 {0, -A 7 ,-A 8 h C -a 3 {0,0, Oh ( {0,A 15 ,A 16 h 

Ifoi.ei.fr} Pi J ({0,0,0) -a 3 J ({A 17 , 0,0) A 13 J 

C A 21 {0, -A 23 ,-A 24 h / A 13 {0, -Ais, -Ai 6 h ( A 3 {0, 0, Oh 

A{-A 25 ,0,0) J ({-A 17 ,0,0| J ({0,0,0) A 3 J , 



Xl [e 6 ] [Xi [ei]] == ZERO 

True 
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defin[Xi [e 6 ] , Xi[ei]] //Expand 



' i o {o,o, oh i o (o, o, oh i o {o,o, oh 

1(0,0,0} j UA 5 -<S 2 ,0, 0} J 1(0,0,0} j 

( o (o, o, o}\ i o (0,0, oh c o (o, o, oh 

1 (<5 2 - A 5 , 0, 0} j { (0, 0, 0} J { (0, 0, 0} J 

I' o (o, o, oh j' o (o, o, oh ( o (o, o, o}\ 

, 1(0,0,0} J 1(0,0,0} J 1(0,0,0} ), 



A[Xi [e 6 ]] = A[Xi [•«]] //. {A 5 ->5 2 } 

C «3 (0,0, 0}\ C p, (0,A 7 ,A 8 }\ ( {0,A 23 ,A 24 m 

1(0,0,0} a 3 J l{-!?i,-ei,-fc} «5 2 J l(A 25 ,0,0} A 21 J 

^ <5 2 (0, -A 7 , -A 8 } \ l -a 3 (0, 0, 0}\ j' (0, A 15 ,A 16 }\ 

U«?i.ei,0i} Pi ' 1(0,0,0} -a 3 J l(A 17 ,0,0} A 13 j 

\ / A 3 {0,0, Oh 

J 1(0,0,0} A 3 J , 



A21 (0, -A 23 ,-A 24 h ( A 13 {0, -A 15; -A 16 h ( h {0,0,0}' 
,(-A 25 ,0,0} J U-Ai 7 ,0,0} 



T[Ei[l], Ei[l], Xi[e s ]] ==X X [e 6 ] 

True 

A[Xi [e 6 ] ] -Leib[Ei [1] , Ex [1] , X X [e 6 ] ] // Expand 

( (0, 0, 0}\ I {0,0, Oh ( {0,0, Oh 

((0,0,0} J 1(0,0,0} J 1(0,0,0} J 

I (0,0, Oh / (0,0, Oh ( (0,/3 8 +A 15 ,A 16 -yS- 

ijO, 0, 0} J 1(0,0,0} J U/3i+Ai7,0, 



0} ft+A.13 

P- 1 A, 3 |0. -a, -A l5 ./i -A,„h I h {0, 0, Oh 

0} A 3 J 



( {0,0, Oh / j8 3 +Am {0, - Ai 5 , jS 7 -Aieh ( A 3 

1(0,0,0} J U-A -A 17 , 0,0} J [{0,0,1 



A[Xi [e 6 ]] = 

A[X X [e 6 ]] //. {A 3 -> 0, Ai 3 -> -/3 3 , A 15 -> -/3 8 , A 16 -> /3 7 , A 17 -0i } 

' ( a 3 {0,0, Oh j' Pl (0,A 7 ,A 8 }\ < {0,A 23 ,A 24 }\\ 

1(0,0,0} a 3 J [ { _^,_ ei! _0 l} ^ J ({A 25 ,0,0} A 21 J 

j' S 2 {0,-A 7 ,-A 8 h r -a 3 (0,0,0}\ ( (0, , /3 7 } \ 

U«?l, 61,^1} Pl J 1(0,0,0} -Or 3 J U-A-0,0} J 

/ A 21 {0, -A 23 ,-A 24 }\ ( -p 3 {0,/? 8 ,-/? 7 h j' {0,0, Oh 

i(-A 25 ,0,0} J { {fa, 0,0} J 1(0,0,0} J , 

T [Ei [1], X X [e 6 ], E X [1]] == ZERO 

True 



LeibfEi [1] , Xi [e 6 ] , E x [1] ] == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



T[E 2 [1], E 2 [l], X![e 6 ]] ==Xi [e 6 ] 

True 



{0,0,0)^| ( (0,0,0) 

{0, 0, 0) 



A[X X [e 6 ] ] -Leib[E 2 [1] , E 2 [1] , X X [e 6 ] ] // Expand 

| ( (0,0, on l {0,A 23 - 78 , 77 +A 24 }> 

J 1(0,0,0) J {{X 25 -71,0,0} A 21 -y 3 ; 

o (o, o, on c o {o, o, o) a i o jo, o, on 

(0,0,0) J 1(0,0,0) J 1(0,0,0) J 

A 2 i-73 (0,78 -^23, -77 -A 24 ) W (0,0,0)^ ( (0,0,0)' 

(7i-A 25 ,0, 0) 



( 



)W {0,0,0} A t {0,0,0} A 

J 1(0,0,0) J 1(0,0,0) J 



A[Xi [e 6 ] ] = A[Xi [e 6 ] ] / / . {A 2i -> y 3 , A 23 -> y 8 , A 24 -> -y 7 , A 25 -> y x } 

<*3 (0,0,0)^ f Pl {0,A 7 ,A 8 }^ ( (0,78,-77) 



C «3 (0,0, On ( 
1(0,0,0) s 3 j 1 1 



i s 2 

{{rju ei, 0i 



(0, -A 7 , -A 8 ) 



Pi 

73 (0, -78 , 77 ) 
(-71,0,0) 



) (,»: 



Pi (0, A 7 , A. 

?7i , — ei , —0i } 6 2 
a 3 (0, 0, 0) 
0, 0) -ff 3 



J 1(71,0,0) 73 



) (,-,° 



(0, -ft, ft) 
0, 0) -ft 



ft {o,ft,-ftn c (0,0, on 

J 1(0,0,0) J , 



(ft , 0, 0) 







T[E 2 [1] , X X [e 6 ] , E 2 [1] ] == ZERO 

True 

Leib[E 2 [1] , Xi [e 6 ] , E 2 [1] ] == ZERO 

True 

T [Ei [1] , E 2 [1] , Xi [e 6 ] ] == ZERO 

True 

(Leib[Ei [1] , E 2 [1] , Xi [e 6 ] ] // Expand) == ZERO 

True 

T[E 2 [1] , Ei [1] , Xi [e 6 ] ] == ZERO 

True 



(Leib[E 2 [l], Ei[l], Xi[e 6 ]] //Expand) == ZERO 

True 



T[Ex [1], X X [e 6 ], E 2 [1]] ==Xi [e 6 ] 

True 
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A[X X [e 6 ] ] -Leib[Ei [1] , Xx [e 6 ] , E 2 [1] ] == ZERO 

True 

T [Ei [1] , X X [ei] , X X [e 6 ] ] == ZERO 

True 

(Leib[Ei [1] , Xi [ei] , Xi [e 6 ]] // Expand) == ZERO 

True 

T[Xi [ei], E X [1], Xi[e 6 ]] == ZERO 

True 

(Leib[Xi [ei], E x [1] , Xi [e 6 ]] // Expand) == ZERO 

True 

T[E 2 [1] , Xi [ei] , Xx [e 6 ] ] == ZERO 

True 

(Leib[E 2 [1] , Xi [ei] , Xi [e 6 ]] // Expand) == ZERO 

True 

T[Xi [e 6 ], X X [ei] , X X [ei]] == ZERO 

True 

(Leib[Xi [e 6 ], Xi[ei], Xi[ei]] //Expand) == ZERO 

True 

T[Xi [e 5 ], X X [e 4 ] , X X [e 6 ]] == ZERO 

True 

(Leib[Xi [e s ], Xi[e 4 ], Xi[e 6 ]] //Expand) == ZERO 

True 

T[X X [e 4 ] , X X [e 6 ] , X X [e 2 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



(Leib[Xi [e 4 ] , Xi[e 6 ], Xi[e 2 ]] //Expand) == ZERO 

True 

T [Xi [e 3 ] , Xi [« 5 ] , Xi [e 6 ] ] == X X [e 5 ] 

True 

(A[Xi [e s ] ] - Leib[Xi [e 3 ] , X x [e 5 ] , X x [e 6 ] ] // Expand) == ZERO 

True 

T[Xi [e s ] , X X [e 6 ] , X X [e s ]] == ZERO 

True 

(Leib[Xi [e s ] , Xi [e 6 ] , Xi [e s ] ] // Expand) == ZERO 

True 

T[Xi [e 6 ], X X [e 6 ], X X [e 6 ]] == ZERO 

True 

(Leib[Xi [e 6 ], Xi[e 6 ], Xi[e 6 ]] //Expand) == ZERO 

True 



A[Xi [e 6 ]] =A[X 1 [e 6 ]] //. {A 7 A 8 -> i/r 2 } 



( ( «3 (0,0, Oh c 
1(0,0,0) a, J { 
f 6 2 {0, 
{ {t]i , ei , 0i } pi ) 



a 3 {0,0, Oh i Pi (0, i/fi,tfi 2 }\ ( {0,78,-77^ 

{-T]i, -6i, -0i } 5 2 J Un,0,0} 73 J 

-03 {0,0, oh c jo, -ft.fth 

(0,0,0) -or 3 J U-A.0,0} -ft J 



C 73 {0,-78,77)^1 r -ft {0,ft,-ft)\ C {0,0, 0)\ 

> I {-yi,0,0} J l{ft,0,0} J 1(0,0,0) J 



Xi[e 7 ] 



A [Xi [e 7 ] ] = generic; 
Xl[ e 7 ] [Ei [1]] == ZERO 

True 
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defin[Xi [e 7 ] , Ei[l]] //Expand 

' i o {o,o, oh i o {o,o, oh i o (o, o, oh ^ 

WO, 0,0) J 1(0, A,-a 4 ,0) J 1(0,0,0) J 

I (0, 0, 0)\ f -A 7 (0, 0, 0)\ ( (A 27 ,0, -A 25 h 

i(0,a 4 -Ai,0) J 1(0,0,0) -A 7 J 1(0, -A 20 ,0) -A 23 J 

C (0,0, 0)\ / -A 23 (-A 27 ,0,A 25 h ( (0,0, Oh 

> 1(0,0,0) J l(0,A 20 ,0) J 1(0,0,0) J 



A[Xi [e 7 ]] = 

A[Xi [e 7 ] ] // . {Ai -> a 4 , A 7 -> 0, A 20 -» 0, A 23 -» 0, A 25 -> 0, A 27 -» 0} 



f a 4 (0, 0, Oh ( A 4 (A 6 ,0, A 8 )\ / (A 22 ,0, ; 

1(0,0,0) a 4 ) ((A 9 , A 10 , A u ) A 5 J l(0,A 26 ,0) A 21 

( A 5 (-A 6 ,0, -A 8 h C A 2 (0,0, Oh C A 12 {A 14 , Ai 

1(-A 9 ,-A I0 ,-Ah) A 4 J 1(0,0,0) A 2 J i(A 17 ,A 18 ,A 19 ) A, 

A 2 i (-A 22 ,0, -A 24 )\ ( A 13 j-A 14 , -A l5 , -A 16 )^ ( A 3 (0,0,0) 



/ A 2 i (-A 22 , 0, -A 24 )\ / An {-Ah, -A15, -Ai6h ( A3 

. 1(0, -A 26 ,0) j U-Ai 7 ,-Ai 8 ,-Ai 9 ) A12 j 1(0,0, 



0) A 3 



Ux l[e ,] [E 2 [1]] == ZERO 

True 



defin[Xi [e 7 ] , E 2 [l]] //Expand 

(0,0, Oh ( (0,0, Oh ( j-A l9 ,0, An) 



C (0,0, Oh ( (0,0, Oh ( (-Ai 9 , 0, A 17 )V 

1(0,0,0) J 1(0, a 4 +A 2 ,0) J 1(0, A 12 ,0) A 15 J 

^ ( (o, 0, oh j' (o, 0, oh 

j 1(0,0,0) J 1(0,0,0) J 

nh ( {0,0, Oh ( {0,0, 0)\ 

J 1(0,0,0) J 1(0,0,0) J 



/ (0,0, Oh (0 {0,0, Oh ( (0,0,0) 

1(0, -a 4 -A 2 , 0) 

A 15 (A 19 , 0, -A 17 )^ , {0,0, Oh ( (0,0,0) 

(0, -A 12 ,0) 



A[X X [e 7 ] ] = A[X X [e 7 ] ] //. {A 2 -> -a 4 , A 12 -> 0, A 15 -> 0, A 17 -> 0, A 19 -> 0} 

( ( ff 4 (0,0, 0)\ ( A 4 (A 6 ,0,A 8 )\ / (A 22 ,0,A 24 )\\ 

1(0,0,0) a 4 J i(A 9 , A 10 , A n ) A 5 J l(0,A 26 ,0) A 21 J 

C A 5 {-A 6 ,0, -A 8 h ( -a 4 (0, 0, Oh f {Ai 4 ,0, A 16 )\ 

1{-A 9 ,-A l0 ,-An) A 4 j l{0,0,0) -a 4 j l(0,A 18 ,0) A 13 j 

/ A 21 {-A 22 ,0, -A 24 h ( A 13 {-A 14 ,0, -A 16 h / A 3 (0,0, 0)\ 

, 1(0, -A 26 ,0) J Uo, -A 18 ,0) J 1(0,0,0) A 3 J , 



U Xl [e 7 ] [Xi [e 7 ] ] == ZERO 

True 



(defin[Xi [e 7 ] , X x [e 7 ] ] // Expand) == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



Xl [e,] [Xi [e s ]] == ZERO 

True 



defin[Xi [e 7 ] , Xi [e 6 ] ] // Expand 

' ( o {o,o, oh i o 

1(0,0,0) J 1(0, -A 6 -0,, 

i o {o,o, oh ( o (0,0,0) 

U0,A 6 +^,0) J 1(0,0, 



(0, 0, 0) 
0) 



-<Ai,0} 

i o (o, o, oh j' o (o, o, oh 

. 1(0,0,0) j 1(0,0,0) J 



0} 
(0, 0, 0}- 






(0, 0, 0) 


(0, 0, 0) 








(0, 0, 0) 


(0, 0, 0) 








(0, 0, 0) 


(0, 0, 0) 






A[Xi [e 7 ]] =A[Xi[e,]] //. {A 6 



l a 4 (0, 0, 0) \ 
{ (0, 0, 0) a 4 ) 



A 5 



(01,0, -A 8 } 



^21 {-A22, 0, -A24} 

(0, -A 26 ,0) 



A 4 {-^1 , 0, A 

(A9, A10, An ) A5 
a 4 (0, 0, 0) 
0) -a 4 
A13 (-Ai4,0, -.1 
(0, -A 18 ,0) 



1 { 

J I (0, 0, 1 



] f 

) ({0, Ais, ■ 



(A 2 2 , 0, A 24 ) 

oi A21 

(Ai4,0, Ai 6 ) 
0) A n 
is I ^ f A 3 (0,0,0) 
J I (0, 0, 0) A 3 



)] 



) J 



Ux l[e ,] [Xi [e 5 ]] == ZERO 

True 



defin[Xi [e 7 ] , Xi [e s ] ] // Expand 

(,0, 



(0, 0, 0) 
0, 0) 

10.0,0! 
(0, An +02,0) 
^ 10.0.0! 



0, 0} \ I 
J 1(0, -A„ -02,0) 



(0, 0, 0) 



0, oh 
J 

0,0} \ / {o,o, oh 1 

J 1(0,0,0) J { 

0,0} \ r (0,0, oh 1 

J 1(0,0,0) J 1 



(0,0,0) ) 1(0,0,0) 

A[X X [e 7 ]] = A[Xi[e 7 ]] //. {An -»-* 2 } 

I I a 4 {0,0,0} \ I A 4 !-(//,.(). As! 

1(0,0,0) a 4 J l{A 9 ,A,o,-02 
5 {^i,0, -A 8 }^ ( -a 4 

0, 0) -a 4 
{-Ai4,C 

(0, -A 26 ,0) j uo, -A I8 ,0) 






{0, 0, 0) 


(0, 0, 0) 








(0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


(0, 0, 0) 






A 5 



(0, 0, 0) a 4 

A 5 {i/f U 0,-\ 8 }\ f -a t (0,0, Oh 1 

A 9 ,-A lo ,0 2 ) A 4 J 1(0,0,0) -a 4 J l(0,Ai 8 ,0) 



') 

J, A, 6 }\ 

13 ) 

10.0.0! A.; ) , 



(A 22 ,0, A 24 )^ 
(0,A 26 ,0) A 2 i 
(A;:. 0. A 

A 



Xl[ e 7] [Xi [e 4 ]] == -Xi [e 7 ] 

True 
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A[Xi [e 7 ] ] + defin[Xi [e 7 ] , X x [e 4 ] ] // Expand 

(0,0, Oh ( (0,0,0) 

,{0, -e 2 -A 10 ,0) 



' i o {o,o, oh i 

1(0,0,0) J I) 

( 

(0 (o, o, oh / o (o, o, oh ( a 3 jo, o, oh 

, 1)0,0,0) J 1(0,0,0) J 1(0,0,0) A 3 J, 



(0, 0, 0) * 

(0,e 2 +A 10 ,0) , 






(0, 0, 0) 


(0, 0, 0) 








(0, 0, 0) 


(0, 0, 0) 





A 3 


(0, 0, 0) 


(0, 0, 0) 


A 3 



A[Xi [e 7 ] ] = A[X X [e 7 ] ] //. {A 10 -> -e 2 } 

I a 4 (0,0, 0)\ ( A 4 j-^i,0,A 8 )\ ( (A 22 ,0,A 24 )y 

1(0,0,0) a 4 J l(A 9 ,-e 2 ,-0 2 ) A 5 J l(0,A 26 ,0) A 21 J 

^ A 5 (</q,0, -A 8 )\ / -a 4 (0, 0, 0)\ f (A 14 ,0, Ai 6 h 

i(-A 9 ,e 2 ,0 2 ) A 4 J 1(0,0,0) -a 4 J l(0,A 18 ,0) A 13 J 

A 21 (-A 22 , 0, -A 24 )\ ( A 13 j-A 14 ,0, -A 16 )\ C A 3 (0,0, Oh 

,(0, -A 26 ,0) J 1(0, -A l8 ,0) J 1(0,0,0) A 3 J , 

Xl [e,] [Xi [e 3 ]] == ZERO 

True 

defin[Xi [e 7 ] , Xi [e 3 ] ] // Expand 



< ( (0,0, 0)\ I 
1(0,0,0) J [\ 

{ 



(0, 0, 0) 

(0, -t/2 -A 9 ,0) 

o (o, o, oh ( o (o, o, oh 

(0, 7/ 2 +A 9 ,0) j 1(0,0,0) j 






(0, 0, 0) 


(0, 0, 0) 








(0, 0, 0) 


(0, 0, 0) 








(0, 0, 0) 


(0, 0, 0) 






) 



A[Xi [e 7 ] ] = A[X X [e 7 ] ] //. {A 9 -> -772} 

( a 4 (0, 0, 0)\ ( A 4 0,A 8 h j' (A 22 ,0, A 24 )y 

1(0,0,0) a 4 j l(-7/2,-e2,-02) A 5 j l(0,A 26 ,0) A 2] J 

C A 5 (^,,0, -A 8 )\ ( -a 4 (0,0, 0)\ / (A 14 ,0,A 16 )\ 

1^2,62,02} A 4 J 1(0,0,0) -a* J l(0,A 18 ,0) A 13 J 

/ A 2 i (-A 22 , 0, -A 24 h r A 13 (-A 14 ,0, -A 16 h ( A 3 (0, 0, 0} \ 

1(0, -A 26 ,0) J 1(0, -A 18 ,0) J 1(0,0,0) A 3 J , 



U Xl [ev] [Xi [e 2 ] ] == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



defin[Xi [e 7 ] , Xi [e 2 ] ] // Expand 



' i o {o,o, oh i o {o,o,o) \ i o {o,o, oh 

( {0,0,0) J ({0, A 4 -p 2 ,0) J ({0,0,0} J 

( o jo, o, oh ( o {o, o, oh / o {o,o, oh 

({0, p 2 -A 4 ,0) J 1(0,0,0) J 1(0,0,0} J 

( {0, 0, Oh I {0,0, Oh /" (0, 0, 0} A 

, 1(0,0,0) J 1(0,0,0) j 1(0,0,0} ), 



A[Xi [e 7 ]] = A[Xi [•,]] //. {A 4 ->p 2 } 

I a 4 (0,0, 0}\ C p 2 {-tf'i.O.Agh C (A 22 ,0,A 24 m 

1(0,0,0) a 4 J U-/72,-e 2 ,-02} A 5 J ({0,A 26 ,0| A 2] J 

( A 5 (iAi,0, -A 8 )\ f -a 4 {0,0, Oh ( (A 14 ,0, A 16 )\ 

l(?72,e 2 ,0 2 } p 2 j 1(0,0,0) -a* J ({0,A 18 ,0} A 13 J 

A 2] (-A 22 , 0, -A 24 )\ C A 13 {-A 14 ,0, -A 16 }\ / A 3 (0, 0, 0) \ 

,(0, -A 26 ,0) J ({0,-A 18 ,0} J 1(0,0,0) A 3 J , 

Xl [e,] [Xi [ei]] == ZERO 

True 



defin[Xi [e 7 ] , Xi [ei] ] // Expand 

' I {0, 0, Oh ( {0,0, Oh I 

( (0, 0, 0) J ( {0, A 5 - 5 3 , 0) j [ 

I (0, 0, Oh I (0,0,0} A ( 

[{0,(53 -As, 0} J 1(0,0,0} J I 

( {0, 0, Oh ( 

({0,0,0} J ({0,0, 



{0, 0, 0)' 
.0} , 






{0, 0, 0} 


(0, 0, 0) 








(0, 0, 0) 


{0, 0, 0} 








{0, 0, 0} 


(0, 0, 0) 






A[Xi [e 7 ]] = A[Xi [•,]] //. {A 5 -><5 3 } 

I a 4 (0, 0, Oh t p 2 Hh,0, A 8 h I (A 22 ,0, X 2 a\\\ 

({0,0,0) a 4 ) ({-?72,-e2,-02} 5 3 J ((0,A 26 ,0) A 21 J 

C <5 3 {^i.O, -A 8 h I -a 4 {0,0, Oh f {A 14 ,0,A 16 h 

(te,e 2 ,<fe) p 2 J ({0,0,0) -a* J ({0,A 18 ,0} A 13 J 

C *2i {-A 22 ,0, -A 24 }\ / A 13 (-A 14 ,0, -A 16 )\ / A 3 (0, 0, 0} \ 

({0, -A 26 ,0) J ({0, -Ai 8 ,0) J ({0,0,0} A 3 J , 



T [Ei [1] , Ei [1] , Xi [e 7 ] ] == Xi [e 7 ] 

True 



Sesion V 



197 



A[X X [e 7 ] ] -Leib[Ei [1] , Ex [1] , X X [e 7 ] ] // Expand 

n o {o,o, oh ( o {o,o, oh 

({0,0,0) J 1(0,0,0) o J 

( (0, 0, 0)\ / {0, 0, 0)\ 

1(0,0,0) J 1(0,0,0) J 



(o, o, or 



(A 14 -/3 8 ,0,/3 6 + A 1( 

(0,/3, +A I8 ,0) /3 4 +A 13 

( (0,0, 0)\ < /3 4 +A 13 {/3 8 -A, 4 ,0, -/3 6 -A 16 )\ ( A 3 (0,0,0)^ 

1(0,0,0) J ((0, -j8i -A 18 ,0) J ((0,0,1 



0) A 3 



A[Xi [e 7 ]] = 

A[Xi [e 7 ]] //. {A 3 -> 0, A13 -> -/3 4 , Ai 4 -> /3 8 , Ai 6 -> -/3 6 , A i8 -> -/3i } 



f I a 4 (0,0, 0)\ / p 2 (-0 l5 0,A 8 )\ / {A 22 ,0,A 24 }V 

((0,0,0) a 4 J l(-?72,-e2,-02) ft J l(0,A 26 ,0) A 21 ) 

( ft {0i,O, -A 8 )\ f -a 4 (0,0, Oh 

1(72,62,02) P2 J 1(0,0,0) -a 4 J 



ft (^1,0, -A 8 h ( -a 4 (0,0,0)^ , {/3 8 ,0, -/3 6 ] 

,(0,-/3;, 0) -/3 4 

A 2 i (-A 22 , 0, -A 24 )\ ( -fa {-fa,0,/3 6 }\ ( (0,0,0) 



I A 21 f-A 22 ,0, -A 24 )\ ( -/3 4 {-/3 8 ,0,/3 6 h ( (0, 0, 0)\ 

A(0, -A 26 ,0) j 1{0,A,0) j 1(0,0,0) o j , 



T [Ei [1], X X [e 7 ], E X [1]] == ZERO 

True 



Leib[Ei [1] , Xi [e 7 ] , E x [1] ] == ZERO 

True 

T[E 2 [1], E 2 [l], X![e 7 ]] ==Xi [e 7 ] 

True 



A[X X [e 7 ] ] -Leib[E 2 [1] , E 2 [1] , X x [e 7 ] ] // Expand 

( (0,0, Oh ( (0,0, Oh ( ( 78 +A 22 ,0, A 24 - r6 h 

1(0,0,0) j 1(0,0,0) j 1{0,A 26 -n,0) A 21 - r4 , 

( (0,0, Oh ( (0,0, Oh j' (0,0, Oh 

I (0, 0, 0) J ( (0, 0, 0) J ( (0, 0, 0) J 

A 2 i-74 (-78 -A 22 ,0,76 -A 24 )W {0, 0, 0) A ( (0, 0, 0) \ 

.{0,7i -A 26 ,0) J 1(0,0,0) J 1(0,0,0) J 



A[Xi [e 7 ] ] = A[Xi [e 7 ] ] / / . {A 2i -» y 4 , A 22 -» -y 8 , A 24 -» y 6 , A 26 -» y x } 

' ( a 4 (0,0, Oh ( Pi j-0i,O,A 8 )\ / (-78 , 0,76)^1 

1(0,0,0) a 4 ) { (-772, -62, -0 2 ) ft J l(0,7i,0) 74 J 

/• ft {01,0, -A 8 h ( -ff4 {0,0, 0)\ / {/3 8 , 0, -/3 6 h 

W??2,e 2 ,0 2 } P2 J 1(0,0,0) -a 4 J 1(0,-/3,, 0) -/3 4 J 

( 74 (78 , 0,-76)^ ( ~P 4 {-Ps,0,J3 6 }\ r (0,0, 0)\ 

A (0,-7i,0) J 1(0, A, 0) J 1(0,0,0) J 



Elemento generico de Der(H3( Os, - j 

T[E 2 [1] , X X [e 7 ] , E 2 [1] ] == ZERO 

True 

Leib[E 2 [1] , Xi [e 7 ] , E 2 [1] ] == ZERO 

True 

T[Ei [1] , E 2 [1] , Xi [e 7 ] ] == ZERO 

True 

(Leib[Ei [1] , E 2 [1] , Xi [e 7 ] ] // Expand) == ZERO 

True 

T[E 2 [1] , E X [1] , X X [e 7 ] ] == ZERO 

True 

(Leib[E 2 [1] , Ei [1] , Xi [e 7 ] ] // Expand) == ZERO 

True 

T [E X [1] , X X [e 7 ] , E 2 [1] ] == X X [e 7 ] 

True 

A[Xi [e 7 ] ] -Leib[Ei [1] , X X [e 7 ] , E 2 [1] ] == ZERO 

True 

T [Ei [1] , X X [ei] , Xx [e 7 ] ] == ZERO 

True 

(Leib[Ei [1] , Xi [ei ] , Xi [e 7 ] ] // Expand) == ZERO 

True 

T[X X [ei] , E X [1] , Xx [e 7 ] ] == ZERO 

True 



(Leib[Xi [ei], Ei[l], Xi [e 7 ] ] //Expand) == ZERO 

True 
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T[E 2 [1] , X X [ei] , X X [e 7 ] ] == ZERO 

True 

(Leib[E 2 [1] , Xi [ei ] , Xi [e 7 ] ] // Expand) == ZERO 

True 

T[Xi [e 6 ], X X [e 7 ], Xitei]] == ZERO 

True 

(Leib[Xi [e 6 ], Xi[e 7 ], Xi[ei]] //Expand) == ZERO 

True 

T[Xi [e s ], X X [e 7 ], X![e s ]] == ZERO 

True 

(Leib[Xi [e s ] , Xi[e 7 ], Xi[e 6 ]] //Expand) == ZERO 

True 

T [Xi [e 4 ] , X X [e 6 ] , X X [e 7 ] ] == X x [e 6 ] 

True 

(A[Xi [e 6 ] ] - Leib[Xi [e 4 ] , X x [e 6 ] , X x [e 7 ] ] // Expand) == ZERO 

True 

T[Xi [e 3 ], X X [ei], X![e 7 ]] == ZERO 

True 

(Leib[Xi [e 3 ] , Xifei], Xi [e 7 ] ] //Expand) == ZERO 

True 

T[Xi [e 7 ], X X [e 6 ], X![e s ]] == ZERO 

True 

(Leib[Xi [e 7 ] , Xi [e 6 ] , Xi [e 5 ] ] // Expand) == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



T[Xi [e 7 ] , X X [e 7 ] , X X [e 7 ]] == ZERO 

True 



(Leib[Xi [e 7 ] , Xi[e 7 ], Xi[e 7 ]] //Expand) == ZERO 

True 



A[Xi [e 7 ]] = A[X X [e 7 ]] //. {A 8 -> X i) 

t a 4 {o, o,oh f p 2 {-^i,o,xi}\ ( o {-r8,o,r 6 h N 

1(0,0,0) a 4 J {{- m ,-e 2 ,-<f> 2 } S 3 J 1(0, y, , 0) y 4 J 

C <?3 {^i,0,-xi}\ f -a* {0,0, Oh C {fa,O,-06}\ 

\{m^2,4>2} Pi ) 1(0,0,0) -a 4 J 1{0,-A,0} -yS 4 J 

C 74 {r8,0,-r6)^j C -Pa {-fa,0,/3 6 }\ I {0, 0, 0) A 

,1(0,-71,0} J I {0,01.0} J 1(0,0,0) J , 



Xi[e 8 ] 

A [Xi [e 8 ] ] = generic; 
Xl [e 8 ] [Ei [1]] == ZERO 

True 



defin[Xi [e 8 ], Ei[l]] 

( ( (0,0, 0}\ 
{ (0, 0, 0} J 
( {0,0,0} \ 

l(0,0,a 5 -A,} J 

C (0,0, 0}\ 
, 1(0,0,0) J 



// Expand 

o (0,0, oh 

(0, 0, Ai - a 5 } J 
-A 8 (0,0, Oh 
(0,0,0) -A 8 J 
-A 2 4 (A 2 6, -A25, 0} ' 
(0,0, A 20 ) 



{0,0, Oh 

{0, 0, 0} J 
{-A 2 6,A 25 ,0h 
(0,0, -A 20 ) -A 24 J 
{0,0, Oh 
{0, 0, 0) J 



( 



( 



( 



A[Xx [e 8 ]] = 

A[Xi [e 8 ] ] // . {Ai -> a s , A 8 -> 0, A 20 -» 0, A 24 -» 0, A 25 -> 0, A 26 -» 0} 



f » 5 {0,0, Oh I A 4 (A 6 ,A 7 ,0}\ f 

1(0,0,0} a 5 J i(A 9 , A 10 , A n } A 5 J I {0, 0, A 

A 5 {-A 6 ,-A 7 ,0)^ I A 2 {0,0, 0}^ ( A 12 {A 14 , A] 



(0,0,0)^ / A 4 {A 6 ,A 7 ,0}^ 1 (A 22 ,A 23 

A 27 ) A 2 i 

\ I A 2 {0,0, Oh I A12 

{-A 9 ,-A l0 ,-A n ) A 4 J 1(0,0,0} A 2 J [ (A 17 , A 18 , A 19 } X x 

( A21 {-A 22 , -A 23 , Oh /" An {-A M , -A15, -Ai 6 }\ /" A 3 (0,0,0) 

, 1(0,0, -A 27 ) J U-A17, -Ai 8 , -A19} A l2 j 1(0,0,0} A 3 



Xl [e 8 ] [=2 [1]] == ZERO 



True 
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defin[Xi [e 8 ] , E 2 [1] ] //Expand 



I {0, 0, 



{0, 0, 0) 

0) 
{0, 0, 0) 

J0,0, -a 5 -X 2 ) 

Al6 {-Ai8,An,0} 

{0, 0, -Ai 2 } 



) ( {0, 0, a 5 
) ( 10, 0, 
) ( 10, 0, 



{0, 0, 0) 
a 5 +\ 2 ] 
{0, 0, 0) \ 
0) J 

{0, 0, 0) 
0) 



{Ai 8 ,-Ai7,0}- 
{0,0, A12) Ai 6 

{0, 0, 0) \ 
{0, 0, 0) J 

1 jo,o, oh 

J 1(0,0,0} J 



A[X X [e 8 ] ] = A[X X [e 8 ] ] //. {A 2 -> -a 5 , A 12 -> 0, A 16 -> 0, A 17 0, A 18 -> 0} 

A 4 (A 6 ,A 7 ,0h ( 



( a 5 
{ (0, 0, 



(0,0,0) 
0) a 5 
A 5 j-A 6 ,-A 7 ,0) 
-A9, -A| , -An ) A 4 

A 2 i (-A22, -A23, 0) 
J0,0,-A 27 ) 



) ({A 9 , 



') 



(A 6 ,A 7 ,0) 
A 5 

a 5 (0, 0, 0) 



Am. A,,! As ) ((0,0 



) ({0.0,0) 



An (-A 14 , -A 15 ,0) 
(0, 0, -A 19 ) 



) ( (0, 

) 



(A 2 2,A 2 3,0)^ 
A27 ) A21 
{Ai4,Ai 5 ,0} 
A19) An 
A3 (0, 0, 0) 
(0, 0, 0) A 3 



') J 



Ux l[e8 ] [Xi [e 8 ]] == ZERO 

True 

(defin[Xi [e 8 ] , X x [e 8 ] ] // Expand) == ZERO 

True 

U Xl[ e 8 ] [Xi [e 7 ]] == ZERO 

True 



defin[Xi [e 8 ] , Xi [e 7 ] ] // Expand 



1 (0,0, oh i (0,0, oh ( (o, 0, oiy 

1(0,0,0) J 1{0,0,-A 7 -Ari} J 1(0,0,0) J 

( (o, o, oh i (o, 0, o\\ ( (o, 0, oh 

l{0,0, A 7 +xi] J 1(0,0,0) J 1(0,0,0) J 

( (o, 0, o)\ ( (o, o, oh ( (o, 0, oh 

{ (0,0,0) J 1(0,0,0) J 1(0,0,0) ), 



A[X X [e 8 ]] = A[X X [e 8 ]] //. {A 7 

C a 5 (0,0, Oh C 
1(0,0,0) a 5 ) { 



-Xi } 



1 a 5 (0, 0, 0) 
(0, 0, 0) a 5 

A 5 {-X 6 ,xi,0}\ ( 

Am, -A1 1 1 A 4 ) y 



A 4 (A 6 ,-^i,0) 
(A9, A10, An ) A 5 

-as (0, 0, 0} 
(-A 9 , -A10, -A u ) A 4 ) 1(0,0,0) -a 5 



A21 (-A22 > -A23 > 0) 
(0,0, -A 27 ) 



A13 (-A 14 ,-A I5 ,0) 
(0, 0, -A 19 ) 



) ( (0, 0, 

) 



A19) 
A3 



{A 2 2,A 23 ,0m 
(0, 0,A 27 ) A 2 i J 
(Ai 4 , A 15 ,0) 



(0, 0, 0) 



(0, 0, 0) A 3 



Ai 5 ,0h 

Vl3 J 

) J 
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Elemento generico de Der(H3( Os, —), 



U Xl[ea] [X! [e 6 ]] == ZERO 

True 

defin[Xi [e 8 ] , Xi [e 6 ] ] // Expand 



{0, 0, 0} 



{ ( o jo,o, oh ( o 

1(0,0,0) J [{0,0,-^-^2} 



I (0,0, Oh ( (0,0, Oh 

l(O,O,A 6 +0 2 ) J 1(0,0,0) J 

( o (o, o, o)\ j' o (o, o, oh 

, 1(0,0,0) j 1(0,0,0) J 






(0, 0, 0) 


(0, 0, 0) 








(0, 0, 0) 


(0, 0, 0) 








(0, 0, 0) 


(0, 0, 0) 






A[Xi [e 8 ]] = A[X X [e 8 ]] //. {A 6 

(0, 0, 0) 



-1^2} 



{ (0, 0, 



1 f 4 

0) a 5 ) UA 9 ,Ai , A n } A 5 



A 5 



A 4 {-^2, 0} 

1(^-9, ^10, An ) 

I'//;. -Oh j -a t 

) { (0, 0, 

) 



a 5 (0, 0, 0) 
0) -a 5 

A 2 i (-A22, -A23, 0}\ ( An (-A14, -A15, 0) 
(0,0, -A 27 ) J 1(0,0, -A 19 ) 



) ( (0, 0, 

) 



(A 22 ,A23,0)- 
(0, 0, A 27 ) A21 

{Ai4,Ai 5) 0i 
A19) Ai 
A 3 (0, 0, 0) ' 
(0, 0, 0) A 3 



Ai5,0h 

ll3 J 

') J 



Ux l[ea] [Xi [e s ]] == -Xi [e 8 ] 

True 



A[X X [e 8 ] ] + defin[Xi [e 8 ] , X x [e 5 ] ] // Expand 



( (0,0, oh 1 

1(0,0,0) J 1(0,0, -A,, 



(0, 0, 0) 
0, 0) 

(0.0,0! 
(0, 0, An +0 3 ) 
( (0, 0, 0) 
{ (0, 0, 0) 



(0, 0, 0) 

■03} 



0,0} \ ( (0,0, Oh 1 
J 1(0,0,0} J { 



(0, 0, 0) 

o,oh ( (0,0, oh 

J 1(0,0,0} J 1 






(0, 0, 0) 


(0, 0, 0) 








(0, 0, 0} 


(0, 0, 0} 





A3 


(0, 0, 0) 


(0, 0, 0} 


A3 



A[X! [e 8 ]] =A[Xi[e 8 ]] //• {A 3 -»0, An -*-* 3 } 

I a 5 {0,0,0} \ I A 4 Hfe,-*i 

1(0,0,0} a s J i(A 9 ,A 10 , -0 3 ) A 5 

A 5 (02,^1,0)^ ( -a 5 (0,0,0} 



(-A9, -A10, 03) 
^•21 

U(0, 0, -A 27 ) 



A 4 



\ I -a 5 (0,0, 0}\ ( t 

j 1(0,0,0} -a 5 J 1(0,0, 







0, 0) 

A:, |-A 2: . -A ;! ,0h I hi (-A I4 , -A, 5 ,0}\ I 10. 0. Oh 

J 1(0,0, -A19} J 1(0,0,0} J , 



(A22, A 23 , 0)^ 

121 J 

) 



(A14, Ai5,0) 

A19} An 



Ux l[ea ] [Xi [e 4 ]] == ZERO 

True 
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defin[Xi [e 8 ] , Xi [e 4 ] ] // Expand 

' e o {o,o, Oh < o {o,o, oh i o {0, o, 0}y 

1(0,0,0) J 1(0,0, -e 3 -A l0 ) J 1(0,0,0) J 

t o (o, o, oh i o (o, o, o}\ i o (o, o, oh 

1(0, 0, e 3 +A, } J 1(0,0,0) j 1(0,0,0) J 

( o (o, o, o)\ / o (o, o, o)\ / o (o, o, oh 

, 1(0,0,0) J 1(0,0,0) J 1(0,0,0) ), 



A[X X [e 8 ]] =A[Xi[e 8 ]] //• {A 10 ->-e 3 } 

I a 5 (0,0, 0)\ j' A 4 {-(fr 2 , -ATI. Oh ( {A 22 ,A 23 ,0m 

1(0,0,0) a s J i(A 9 ,-e 3 ,-03) A 5 J 1(0, 0,A 27 ) A 2] J 

j' A 5 {il/2,XuQ\\ ( -as (0,0,0h r (A 14 ,A 15 ,0)\ 

[{-A 9 ,e 3 ,0 3 } A 4 j 1(0,0,0) -a 5 j 1(0, 0,A 19 ) A 13 J 

( A 13 (-A l4 ,-A 15 ,0h ( (0,0, 0)\ 
J 1(0,0, -A l9 ) J 1(0,0,0) J , 



A 2 i {-A 22 , -A 23 , Oh ( A J3 j-A|4, -A15 , 0) N 
(0,0, -A 27 ) 



Ux l[ea ] [Xi [e 3 ]] == ZERO 

True 

defin[Xi [e 8 ] , Xi [e 3 ] ] // Expand 



( t o (o, o, o}\ t o (o, o, oh ( o (o, o, oh 

1(0,0,0) j 1 (0, 0, -773 - A 9 ) j 1(0, 0,0) J 

f o (o, o, o}\ ( o (o, o, oh ( o (o, o, oh 

1 (0, 0, 773 + A 9 ) J 1(0,0,0) j 1(0,0,0) J 

(0 (o, o, oh (0 (0,0, oh ( o (o, o, oh 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) J, 



A[X X [e 8 ]] =A[Xi[e 8 ]] //• {A 9 ->-r, 3 } 

( a 5 (0, 0, Oh ( A 4 {-^2,-*i,0h / o {A 22 ,A 23 ,om 

1(0,0,0) a s J l(-773 ,-e 3 ,-03) A 5 J 1(0, 0,A 27 ) A 21 J 

C A 5 {^ 2 , ^i, 0}\ r -a 5 (0,0, 0)\ / {A 14 , Ai 5 , 0} \ 

1 (773 , 63 ,03) A 4 J 1(0,0,0) -a 5 J 1(0, 0,A 19 ) A 13 J 

( A 21 {-A 22 ,-A 23 ,0h C A 13 (-A 14 , -A 15 , 0} A /■ (0, 0, 0)\ 

A(0, 0, -A 27 ) J 1(0, 0, -A 19 ) J 1(0,0,0) J , 



U Xl [e 8 ] [Xi [e 2 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



defin[Xi [e 8 ] , Xi [e 2 ] ] // Expand 



' i o {o,o, oh t o 

1(0,0,0} J 1(0, 0, A 4 

I {0,0, Oh I 

i(0,0,p 3 -A 4 ) J 1(0,0, 

/- o (0,0, oh i o 

, 1(0,0,0) J 1(0,0, 



o {0,0,0m 



{0, 0, 0) 
~Pi\ o 

{o,o, oh ( o {o,o, oh 

Oj J 1(0,0,0) J 

{o,o, oh c 

J I (0, 



0, Oh 

(0, 0, 0) J 
{0, 0, 0) < 
(0, 0, 0) 

{0, 0, 0) 



0) 



. 0, 0) 







) 



A[Xi [e 8 ]] = A[X X [e 8 ]] //. {A 4 ->p 3 } 

a 5 (0, 0, 0) 



I a 5 
{ {0, 



Pi {-^2,-^1-0} 

{-773,-63,-^3) A 5 



{^2,^1,0} 

Pi 

A2I {-A-22, ~Mi , 0) 

(0,0, -A 27 } 



21 {-a22,-a 23 ,o)^ c a 13 {-a 14 , -a 15 , on 

J 1(0,0, -A 19 ) J 



{A22 , A23 , 0) 



\ ( -a s (0,0, 0}\ ( 

j 1(0,0,0) -or s J ({0,0, 



{A14, A 15 ,0)~ 
A19) Ai 

(0, 0, ol- 
io, 0, 0) 



)) 

4.15, Oh 

13 I 

) \ 



Xl [e 8 ] [Xi [ei]] == ZERO 

True 



defin[Xi [e 8 ] , Xi[ei]] //Expand 



' ( {0, 0, Oh ( (0, 0, Oh ( 

{ (0, 0, 0) J 1 (0, 0, A 5 - <5 4 } J { (0, 0, 0) 



(0, 0, 0}\\ 
J 

j (o, 0, oh ( {0,0,0} a i (o, 0, o)\ 

I (0, 0, S 4 - A 5 ) j 1 {0, 0, 0} j { (0, 0, 0) j 

1 (o, 0, oh c {0,0,0} a /- {0,0, oh 

1(0,0,0) J 1(0,0,0} J 1(0,0,0} ), 



A[Xi [e 8 ]] = A[Xi [e 8 ]] //. {A 5 -><5 4 } 

C « 5 (o,o, oh c p 3 

1(0,0,0} a 5 J U-ift,-63.- 
( &t {^.Afi.Oh ( 
{ {773 , e 3 , 4> 3 ) p 3 J ' 
( A 2 i {-A22, -A23 , 0} 
A(0, 0, - 



{-^2,-ATi.O} 
4>i\ 64 
-a 5 {0, 0, 0) \ 
(0, 0, 0} -a 5 j 
\ ( A n {-A 14 , -A 15 , 0}A 
A27} J 1(0,0, -A19} J 



f 

I (0, 0, 



{A22,A 23 ,0m 
{0,0, A 27 ) A 2 i J 
{Ai 4 , Ai 5 ,0) 



A19) 

{0, 0, 0} 
(0, 0, 0) 



*i 5 ,oh 

13 ) 

) J 



T [E X [1] , Ei [1] , X! [e 8 ] ] == Xx [e 8 ] 

True 
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A[X X [e 8 ] ] -Leib[E! [1] , E x [1] , X x [e 8 ] ] // Expand 

{o, o, oh 



' ( (0, 0, 0} \ 

{ (0, 0,0) J 

( o {o,o, oh 

I {0, 0, 0) J 

f (0, 0, 0) 

{ {0, 0, 0) 



f 

I {0, 0, 



{0, 0, 0} \ 
{0, 0, 0) j 
/3 5 +A I3 {-Pi -A l4 , /3 6 -Ais.O} 
(0,0, -ySi - Ai 9 } 



(0, 0, Pi + A 19 ) 
) ( 10, 0, 



{0, 0, Oh 
J 
(/3 7 +A 14 , A 15 -/3 6 ,' 
P 5 + A 13 
{0, 0, Oh 
0) J 



A[X X [e 8 ] ] = A[X X [e 8 ] ] //. {A 13 -> -/3 5 , A 14 -> -/3 7 , A 15 -> /3 6 , A 19 -/3i } 

« 5 {0,0, Oh r P3 {-<A 2 ,-^i,0h ( o 



( «5 

I {0, 

( 



&t {^2,ATi.O} 
(773 , e 3 , 03 ) p 3 

^21 ( _ A 22 , ~A 2 3 , 0) 

(0,0, -A 27 } 



P3 {-^2,-ATi.O} 

(-773 ,-63,-03) £4 

-a 5 (0, 0, 0) \ 
(0, 0, 0) -a 5 j 
-p 5 {p 7 ,-p 6 ,0} 
(0, 0, p x ) 



) ( 



-p 6 ,o}\ 
J 



(A 22 ,A 23 ,0)\ ^ 
(0, 0, A 27 ) A 21 J 
C (-/3 7 ,/3 6 , 0h 
1(0,0,-/3!) -p 5 ) 
( (0, 0, 0) \ 
1(0,0,0) J , 



T[E 2 [1] , E 2 [1] , Xi [e 8 ] ] == X X [e 8 ] 

True 



A[Xi [e 8 ] ] - Leib[E 2 [1] , E 2 [1] , X x [e 8 ] ] // Expand 

(0, 0, Oh 



f 

I (0, 0, 



( A 2 
{ (0, 0, 



A 2 i -75 

n -A27} 



(0,0, oh 
,0) j 

(77 - A22 , ~76 - ^23 , 0) ' 





I (0, 0, 0) W 
{ (0, 0, 0) Oji (0, 0, A 27 - 

( (0, 0, 0) \ 
{ (0, 0, 0) J 



(A 22 - 7 7 , 7e + A 23 , 0) > 
7i ! A 21 - 75 

(0, 0, 0) > 
(0, 0, 0) 



0, Oh 

J 

WO (0, 0, 0) A ( (0, 0, 0) ^| 

J 1(0,0,0) j 1(0,0,0) j 



A[Xi [e 8 ] ] = A[Xi [e 8 ] ] / / . {A 2i -> y 5 , A 22 -> y 7 , A 23 -> -y 6 , A 27 -> y x } 

{-^2, -ATI , 0} 



as (0, 0, 0) 

(0, 0, 0) a 5 

84 {^2,^1,0} 

(773 , e 3 , <23 3 ) p 3 

75 ("77 , 76 , 0) 

1 1 (0, 0, -7, ) 



\ I P3 (-02,-^1,0)^ I 

J i (-773, -£ 3 , -03) *4 J 1(0,0,7!) 



) ( 



-a 5 (0, 0, 0) 
(0, 0, 0) -a 5 



) ((0,0,-/3,1 



\ ( -fc {/3 7 ,-/3 6 ,0h 
J 1(0,0, A) J 



(77, -76 , Oh ^ 

75 j 

{-/3 7 ,/3 6 , 0} 
-Pi 



( (0,0, Oh 
'(0,0,0) J , 



Variables [A [X x [e 8 ] ] ] 

{a 5 , Pi , /3 5 , p 6 , /? 7 , 71 , 75 , 76 , 77 , £4 , £3 , m > P3 , 03 , *1 , ^2 ) 



X 2 [e!] 



A[X 2 [ei ] ] = generic; 
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Elemento generico de Der(H3( Os, —), 



Ux 2[ei] [Ei [1]] == ZERO 

True 

(defin[X 2 [ei] , E x [1] ] // Expand) == ZERO 

True 

U El [i] [X 2 [ei] ] == ZERO 

True 



(defin[Ei [1] , X 2 [ei] ] // Expand) 



'( Ai (0,0, Oh I 

1(0,0,0) X t ) 1(0,0, 

( (0, 0, 0)W 

{ (0,0,0) j wo, 0, 

f 

U(0, 



(0, 0, 0) 
0) 



(0, 0, 0) 
0) 

(0, 0, 0) 
0) 
(0, 0, 0) 
(0, 0, 0) 



(0, 0, 0) 
(0, 0, 0) 

(0, 0, 0) 
(0, 0, 0) 

(0, 0, 0) 
(0, 0, 0) 



)] 



)] 



A[X 2 [ ei ]] = A[X 2 [ ei ]] //. {Ax ^0} 

{(), 0, 0}\ 



V (0, 0, 0) 



) ( 



( 



t A 5 {-Xe, -A 7 , -A 8 }\ 

I {-Ag , -Aio , -An ! A4 ) 

A21 {-A22, -A23, -A24 

{-A25, -A26, -A27) A20 



)( 



! A 4 (A 6 ,A 7 ,A 8 ) 
I {A9, Aio, An 1 A5 
C A 2 (0,0,0}\ 
I {0, 0, 0) A 2 j 
A13 (-A14, -A15 , -Ais ) 

{ _ Ai7, -Aig, -A19) A12 



A20 {A22 , A23 , A24 ) " 
U25 , A26 , A27 ) A21 , 

I A12 (A14, A15, Aisl" 
V {A17 , Al8 , A19 ) An 

A 3 (0,0, ()}) 
0) A 3 



\ ( A3 (0,0,0)^1 

j 1(0,0,0) A 3 J 



Ux 2[ei ] [E 2 [1]] == ZERO 

True 



defin[X 2 [ei ] , E 2 [1] ] // Expand 

(0, 0, 0) \ 



f 

I (0, 0, ' 

f 

I (0, 0, ' 



(0, 0, 0) ' 



f 

I (0, 0, 

f 

I (0, 0, 



(0, 0, 0) 

, v (-A9, -Aio, -An ) A 4 



(0, 0, 0) 
0) 

(0, 0, 0) 
0) 
(0, 0, 0) 
(0, 0, 0) y 2 + A 2 



A 4 (0,0,0)^ 
{A 9 , Aio, An) 
y 2 + A 2 (0, 0, 0) 
(0, 0, 0) 

A13 (0, 0, 0) 
(0, 0, 0) A 



0, 0}\ 
I13 J , 
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A[X 2 [•!]] = 

A[X 2 [ei ] ] // . {A 2 -y 2 , A 4 -> 0, A 9 -> 0, Aio -> 0, An -> 0, A i3 0} 



( {0,0, 0}\ 
1(0,0,0) J 
j- A 5 j-A 6 , -A 7 , -A 8 }*| 
I fO, 0, 0} J 



(A 6 ,A 7 ,A 8 ) 
0, 0} A 5 



( 



j-A 2 5 , -A 2 6, -A 2 7 ) 



A20 



I A 2 o {A 2 2 , A 2 3 , A 2 4 ) " 

V (A25 . A26 , A27 } A 2 i , 

I A12 {A14, A15, Ais)" 

l{Ai7,Ai 8 ,A 19 } 

h / {-Ai4,-Ai 5 ,-Ai 6 }\ J- A 3 (0,0, Oh 

J lj-A 17 ,-A 18 ,-A 19 ) Ai 2 j 1(0,0,0) A 3 j 



(,», 

1 - n (0,o,0}\ 

1(0,0,0) -y 2 J 



U E2 [i] [X 2 [ei] ] == ZERO 

True 

(defin[E 2 [1] , X 2 [ei] ] // Expand) == ZERO 

True 

U X2tei] [E 3 [1]] == ZERO 

True 



defin[X 2 [ei ] , E 3 [l]] //Expand 

{0, 0, 0) \ 







( A21 (-A22, -A23, -A24h 

I {0, 0, 0) j 

( (0, 0, 0) \ 
1(0,0,0) J 



(A 22 ,A : 
(0, 0, 0) A 

(().().()! 
0, 0) 

( {0,0,0} \ 
1(0,0,0) A3-72J 



23,A 24 h f {0,0, 0}\ 

21 J 1(0,0,0) J 

( (0, 0, 0) \ fX 3 - 72 (0, 0, 0) \ 

1(0,0,0) J 1(0,0,0) j 



A 3 - y 2 (0, 0, 0) 
0) 

(0, 0, 0) 
(0, 0, 0) 



) 



A[X 2 [ei] ] = A[X 2 [ei] ] // . {A 3 -> y 2 , A 2 i -> 0, A 22 -> 0, A 23 -> 0, A 24 -> 0} 

{0,0, 0}\ ( (A 6 ,A 7 ,A 8 h ( A 



' ( (0, 0, 0}\ 
{ (0, 0, 0) J 



( 



f A 5 j-A 6 , -A 7 , -A 8 )\ 
1(0,0,0) j 

(0, 0, 0) 

A25 , -A26, -A27 1 A20 



') ( 



-72 (0, 0, 0) ' 







(-An, -Ai8, -A19) 



-Ah, -A15, -Al6) 
A12 



20 (0, 0, 0) \ 

(A25 , A26 , A 27 ) ) 
A12 (A14, A 15 , An 



\ ( 7i {0,0,0} \ 

) 1(0,0,0} yi I 



Ue 3 [l] [X 2 [ei] ] == ZERO 

True 

(defin[E 3 [1] , X 2 [ei] ] // Expand) == ZERO 

True 



Ux 2[ei] [Xi [e 8 ]] == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



defin[X 2 [ei ] , Xi [e 8 ] ] // Expand 



'( o {o,o, 0}w o {o,o, oh i o {o, o, oh 

{ {o, o, o) ojl {0, 0, 0) j ( {0, 0, 0) j 

i o {o,o, oh i o {o,o, oh t-Ps-Xi {o,o,oh 

{ {0, 0, 0) j { {0, 0, 0) j { {0, 0, 0) J 

( {0, 0, Oj 
{ {0, 0, 0) 



{0, 0, 0} 
{0, 0, 0) -ft - A 8 



{0, 0, 0} 
{0, 0, 0) 



) 



A[X 2 [ei]] = A[X 2 [ei]] //. {A 8 

{0, 0, 0) • 



f f 

I {0, 
I {0, 0, 



') 



{-A 6 , -A 7 ,/3 5 h 
0) o J 

{0, 0, 0) 

{-A25> -A26. -A27) A 2 o 



» -05} 
f 

WO, 0, 

f " 7 
I {0, 



{A 6 ,A 7 ,-/3 5 ) 



T2 (0, 0, 0) 
0} -72 



) ( 
) ( 



a 20 {0,0, oh 
{A25 , A26 , A27 } ) 

A12 {A14, A15, An 

{A17, Aig, A19} 







{-A17, -Ai8, -A19} 



{-A 14 ,-A l5 ,-Ai 6 h / 72 (0,0, 0}\ 

A12 J 1(0,0,0) y 2 J 



Xl [e 8 ] [X 2 [ei]] == ZERO 

True 

(defin[Xi [e 8 ] , X 2 [ei] ] // Expand) == ZERO 

True 

Ux 2[ei ] [Xi [•,]] == ZERO 

True 



defin[X 2 [ei ] , Xi [e 7 ] ] // Expand 

{0, 0, 0) 



( {o, 0, ojw {0,0, oh ( {0, 0, 0}y 

{ {0, 0, 0) J { {0, 0, 0) J { {0, 0, 0) J 

f {0, 0, 0} W {0, 0, Oh ( -Pa - h {0, 0, 0) \ 

{ {0, 0, 0) J { {0, 0, 0) J { {0, 0, 0) j 

( {0,0, Oh ( {0,0,0) 

I {0, 0, 0) 



(0,0,0) -y3 4 -A- 



)w {0,0, oh 

7 J I {0, 0, 0} ) , 



A[X 2 [ei]] =A[X 2 [ei]] //. {A 7 ^-^4} 

' / (0,0,0) \ f {A 6 ,-/34,-/3 5 h /■ 

1(0,0,0) J 1(0,0,0) A 5 J ( 

f A 5 {-A 6 ,^ 4 ,/3 5 )\ C -72 {0,0, 0}\ f 

1(0,0,0) J 1(0,0,0) -y 2 J I 

"1 ( 



{-A 6 ,^ 4 ,y6 5 

0) 
(0, 0, 0) 

A {-A25 , -A26 , -A27 } A20 



0) -72 
(-Ai4,-A 1: 
{-A17, -Ai8, -A19) A12 



A20 (0, 0, 0) \ 

{A25 , A 2 6 , A27 } ) 
A12 {Ai4,Ai5,Ai ( 
(An , Ais , A19 ) 
72 (0, 0, 0) \ 
(0, 0, 0) y 2 J 
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U X2[ei] [X! [e 6 ]] == ZERO 

True 

defin[X 2 [ei ] , Xi [e 6 ] ] // Expand 



'i o jo, o, o)w o {o,o, oh i o jo, o, o}\\ 

1(0,0,0) J 1(0, 0,0) J 1(0,0,0) J 

( o (0,0, oh t o {o,o, oh (-P3-X6 {o,o,oh 

{ (0, 0, 0) j { (0, 0, 0) j { (0, 0, 0) J 

f 

U(0, 



(0, 0, 0) 
0) 



(0, 0, 0) 
(0, 0, 0) 

(0, 0, 0) 

(0, 0, 0) -ft - A 6 



(0, 0, 0) \ 
J , 



(0, 0, 0) 



A[X 2 [ei]] =A[X 2 [ei]] //. {A 6 ->-/3 3 } 

! (0,0, 0}\ f 
1(0,0,0) J 1(0, 

{ (0, 0, 0) J 



(-/3 3 ,-/34,-/35) 
0, 0) A 5 



) ({A25,. 



0, Oh 
J 



A 5 (/33 ,/34 ,j65) 
0, 0) 
(0, 0, 0) 

A(-A25, -A26, -A27) A 2 



( ~72 

{ (0, 0, 
) 

(-A17, -Ai8, -A19) 



72 (0, 0, 0) ■ 



0) -72 ) 
(-A14, -A15, -Ai 6 ) 



A26 , A27 ) 
( A12 (A14, A15, An 

i(A I7 , A 18 , A 19 ) 
\ ( 72 {0,0, 0}\ 

j 1(0,0,0) 72 J 



Ux l[e6 ] [X 2 [ei]] == ZERO 

True 

(defin[Xi [e 6 ] , X 2 [e x ] ] // Expand) == ZERO 

True 

Ux 2[ei] [Xi [e 5 ]] == ZERO 

True 

(defin[X 2 [ei] , X x [e 5 ] ] // Expand) == ZERO 

True 

U Xl [e 5 ] [X 2 [ei] ] == ZERO 

True 

(defin[Xi [e 5 ] , X 2 [e x ] ] // Expand) == ZERO 

True 



Ux 2 [ei] [Xi [e 4 ] ] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



(defin[X 2 [e x ] , X x [e 4 ] ] // Expand) == ZERO 

True 

U Xl [e 4] [X 2 [ei] ] == ZERO 

True 

(defin[Xi [e 4 ] , X 2 [ei ] ] // Expand) == ZERO 

True 

Ux.ten [Xi [e 3 ]] == ZERO 

True 

(defin[X 2 [e x ] , X x [e 3 ] ] // Expand) == ZERO 

True 

U Xl [e 3 ] [X 2 [ei] ] == ZERO 

True 

(defin[Xi [e 3 ] , X 2 [e x ] ] // Expand) == ZERO 

True 

Ux 2 [ei] [Xi [e 2 ] ] == ZERO 

True 

(defin[X 2 [e x ] , X x [e 2 ] ] // Expand) == ZERO 

True 

U Xl [e 2 ] [X 2 [ei] ] == ZERO 

True 

(defin[Xi [e 2 ] , X 2 [e x ] ] // Expand) == ZERO 

True 

Ux 2[ei] [Xi [ ei ]] == ZERO 



True 
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defin[X 2 [ei ] , Xi [ei] ] // Expand 

'( o jo, o, o)w o {o,o, oh < o jo, o, o\\\ 

( {0, 0, 0) j ( {0, 0, 0) ] ( {0, 0, 0) J 

( o {o,o, oh i o {o,o, oh fp 2 +x 5 (o,o,oh 

({0,0,0) J ({0, 0, 0) j 1(0,0,0) J 

f o {o, o, o)w o {o, o, oh ( o (o, o, oh 

({0,0,0) j 1(0,0,0) j8 2 + A 5 J 1(0,0,0) j, 

A[X 2 [ei] ] = A[X 2 [ei] ] //. {A 5 -> -/3 2 } 

( (0,0, 0}\ I {-/? 3 , ~/?4, -/?5}^j ( A 20 {0,0, Oh 

1(0,0,0} J 1(0,0,0) J ({A 25 , A 26 , A 27 ) J 

f -#> {/3 3 , yS 4 , /3s } ( -72 (0, 0, 0)\ r A 12 (A 14 ,A 15 ,A 1( 

1(0,0,0) J 1(0,0,0) -y 2 J ({A 17 ,A 18 ,A 19 } 

{0,0, Oh t (-Ai4,-A l5 ,-A 16 h ( y 2 (0, 0, 0) \ 

{-A 25 , -A 26 , -A 27 ) A 20 J ({-An, -Ais, -Ai 9 ) A 12 J ((0,0,0) y 2 J 

U Xl [ei ] [X 2 [ei] ] == ZERO 

True 



(defin[Xi [e x ] , X 2 [e x ] ] // Expand) == ZERO 

True 

T [Ei [1] , E X [1] , X 2 [ei] ] == ZERO 

True 

Leib[Ei[l], Ei[l], X 2 [ei]] //Expand 

( {0,0, Oh ( {0,0, Oh ( 

1(0,0,0) j ({0,0,0) J {{a 6 

( o {o,o, on i o (o, o, 0}\ o (o,o, on 

({0,0,0) j ({0,0,0) j ({0,0,0) j 

, {0,0, On ( {0,0, Oh / {0,0, Oh 

\{-a 6 -A 25 , -or 7 -A 26 , -a s -A 27 ) ai+A 20 J ({0,0,0) J ({0,0,0) J 



+ A 25 , a 7 + A 26 , a s + A 27 ) 



A[X 2 [ei ] ] = A[X 2 [ei ] ] // . {A 20 -» -ai , A 25 -» -a 6 , A 26 -» -a 7 , A 27 -» -a 8 } 

' ( {0,0, Oh ( {-#,, -/3 A , -/3 5 }\ ( -a, {0,0, Oh \ 

({0,0,0) J ({0,0,0) -p 2 J ({-a 6 ,-ar 7 ,-a 8 } J 

( -jS 2 {#),#,, fth j' -72 {0,0, Oh C A 12 {A 14 , A 15 , A 16 } < 

({0,0,0) J ({0,0,0) -n J ({A 17 , A 18 ,A 19 ) 

( {0,0, Oh ( {-Aw, -Ai 5 , -A I6 )\ l y 2 (0, 0, 0) \ 

\{a 6 ,a 7 ,a B ] -a { j ({-A 17 , -A 18 , -A 19 ) A 12 J ((0,0,0) y 2 j 



A [ONE] = ZERO; 
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Elemento generico de Der(H3( Os, —), 



T[X 2 [ei] , E 2 [1] , E 2 [1] ] == X 2 [ei] 

True 



(A[X 2 [ei]] -Leib[X 2 [ei] , E 2 [1] , E 2 [1]] // Expand) == ZERO 

True 



T[X X [ei], X X [e 2 ], X 2 [ei]] == ZERO 

True 



Leib[Xi [ei] , Xx [e 2 ] , 

(( {0,0, 0}\ 
1(0,0,0) J 

I (0,0, Oh 
1(0,0,0) J 

t o {o,o, on i 

,1(0,0,0) J 



X 2 [ei]] // Expand 

( {0,0, 0}\ 
1(0,0,0) J 

C {0,0, 0}\ 
1(0,0,0) J 

(0, 0, 

>4> -^18 -P5, ~*19 "Pel 



o (0,0, oh 

(0, 0, 0) J 

(0, 0, 0} 

(A n +p 4 , A [8 +p 5 , A19 +p 6 ) 

( o (0,0, oh 

1(0,0,0) j 



( 



A[X 2 [ei ] ] = A[X 2 [ei ] ] / / . {A17 -» -Pi , Ai 8 -» -p 5 , X 19 -» -p 6 } 

' i o (0,0, oh / o {-a, -a, -Ah c -ai (0,0, oh > 

1(0,0,0) J 1(0,0,0) -h ) {{-a 6 ,-a 7 ,-a H } J 

C -A (A. A. Ah C -72 {0,0, Oh C A 12 {A M , A 15 , A 16 h 

1(0,0,0) J 1(0,0,0) -72 J U-P4.-Ps.-P6} J 

C {0, 0, 0} A f {-A 14 ,-A 15 ,-A 16 h t y 2 (0,0, 0} \ 

A(a6,a7,as) -a\ j Up4,P5,Pe) A12 J l{0, 0, 0} 72 j 

T[X X [ei], X X [e 3 ], X 2 [ei]] == ZERO 

True 



Leib [Xi [ei ] , X x [e 3 ] , X 2 [ei ] ] // Expand 

( (0, 0, 0}\ I {0,0, Oh 

1(0,0,0) J 1(0,0,0) J 

( {0, 0, Oh c {0, 0, Oh 

1(0,0,0) J U0,^4 -Ai6,7/5 +A15} J 






{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 






{0,0, oh ( {0,0, oh 

{0,^6-174,-175-^15} J 1(0,0,0) J 



A[X 2 [ei] ] = A[X 2 [ei] ] //. {A 15 -> -775, A 16 -> 774} 

' t {0,0, 0}\ / {-/33,-/3 4 ,-/3 5 h C -ari {0,0, Oh 

1(0,0,0) J 1(0,0,0) -yS 2 J {{-a 6 ,- ai ,-a s } J 

C -A {A. A, Ah C -72 (0,0, Oh C A 12 {A 14 , -1/5,174} 

1(0,0,0) J 1(0,0,0) -72 J U-P4,-P5,-P6} 

( {0,0, Oh r {-Ah, 775, -774}^ ( 72 {0,0, Oh 

,Uor 6 , Qr 7 , Qr 8 } -«i J UP4,P5,P6} A 12 J ({0,0,0} 72 J 
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T[Xi [ei] , X X [e 4 ] , X 2 [ei]] == ZERO 

True 



Leib [Xi [ei ] , Xi [e 4 ] , X 2 [ei ] ] // Expand 

'I o {0,0,0} \ i o jo,o, oh i o (o,o, oh \ 

((0,0,0) J 1(0,0,0) J 1(0,0,0) J 

i o {0,0,0} \ i o {0,0,0} \ / o (0,0, oh 

((0,0,0) J ((0,0,0) J ({0,0, e 4 -A 14 } J 

I {0,0, Oh /" {0,0,0} A I {0,0,0} A 

A (0,0,0) J ((0, 0, A 14 -e 4 } j ((0,0,0) J , 



A[X 2 [ei]] = A[X 2 [ei]] //. {A 14 ->e 4 } 

{-#,, -j8 4 , -j8 5 } 



' c o (0,0, oh c 

((0,0,0) J ((0, 
( (0, 0, 



) (, 



2 (/3 3 ,/3 4 ,/3 5 ) 
0) 

(0, 0, 0) 



0, 0} -p 2 

\ ( -72 {0,0,0} \ I A12 (e 4 , -775, ?74 U 

J ((0,0,0) -y 2 J ({-p 4 , -p s> -p 6 ) J 



-»i (0, 0, 0) ' 

-QT6, -ff7, -«8} 

Al2 (64,-775,774)' 



0, 0} \ \ 
J 



(-£4,775,-774) 

(p 4 ,p 5 ,p 6 ) A12 



) (,0, 



0, 0} y 2 



Variables [A [X 2 [e x ] ] ] 

{«!, a 6 , a-,, or 8 , /3 2 , /3 3 , /3 4 , /3 5 , y 2 , e 4 , 774, 775, A 12 , p 4 , p 5 , Pel 
We will determine the parameter £ in a moment 

A[X 2 [ei]] = A[X 2 [ei]] //. {A 12 

(0, 0, 0) - 



' ( to, 0, oh 1 

((0,0,0) j ((0,0 



{-&,-&, -ft] 
0) -j8 2 



) ({-a 6 , 



C -782 (/3 3 ,/3 4 ,/3 5 h C -72 {0,0,0} \ C 

((0,0,0) J ((0,0,0) -72 J ({-P4.-P5.-P6} 





1 {0,0,0} A /" 

\{a 6 , or 7 , org} -tti J ({p 4 ,P5 



tti (0, 0, 0) A 

Q-7 , -Org ) J 
f (e 4 , -775, 774)' 





P5, Pel 



-64,775,-774)^ ( 72 (0,0,0)' 

J ((0,0,0) 72 , 



X 2 [e 2 ] 



A[X 2 [e 2 ] ] = generic; 
U El[ i] [X 2 [e 2 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



(defin[Ei [1] , X 2 [e 2 ] ] // Expand) 

'I Ai {0,0, Oh < {0, 0, 0)W (0, 0, 0)\\ 

( {0, 0, 0) Xi ) ( {0, 0, 0) ] ( {0, 0, 0) J 

( o {o, o, o)w o {o,o, oh i o {o,o, oh 

({0,0,0) J ({0, 0, 0) J 1(0,0,0) J 

i o {o, o, o)w o {o, o, oh ( o {o, o, oh 

({0,0,0) j ({0, 0, 0) j ({0,0,0) J, 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] //. {Ai -> 0} 

C {0,0, Oh C A 4 {A 6 ,A 7 ,A 8 h ( i« 

({0,0,0) J ({A 9 ,A 10 ,A„) A 5 J ({A 25 ,^ 

( A 5 {-As, -A 7 , -A 8 }\ l A 2 {0,0, 0}\ i» 

({-A 9 ,-A 10 ,-A„) A 4 J ({0,0,0) A 2 J ({A„J 

/ A 2 l {-A22, -A23, -A24)\ I A13 {-A14, -A15 , -Al6)\ I 

, I { - A25 , -A26, -A27 ) A20 J I {-A17 , -Aig , -A19 ) A12 J I 



Ux 2 [e 2 ] [E 2 [1]] == ZERO 

True 



defin[X 2 [e 2 ] , E 2 [l]] //Expand 

( {0,0, Oh ( {0,0, Oh ( {A 6 ,A 7 ,A 8 )\\ 

({0,0,0) J ({0,0,0) J ({0,0,0) A 5 j 

j' {0,0, Oh ! {0,0, Oh j' {0, 0, 0)\ 

({0,0,0) J ({0,0,0) J ({0,0,0) 71+A2J 

\ ty\ +A 2 {0,0, Oh C A 12 {0,0, 0)\ 

J ({0,0,0) J ({0,0,0) A 12 J , 



A 5 {-A 6 ,-A 7 ,-A 8 }^ri +h {0,0,0)^| f A 12 {0,0,0)' 
. {0, 0, 0) 



A[X 2 [e 2 ] ] = 

A[X 2 [e 2 ] ] // . {A 2 -> -Yi , A s -> 0, A 6 -> 0, A 7 -> 0, A 8 -> 0, A i2 -> 0} 



C {0,0, Oh A 4 {0,0, 0}\ A 20 {A 22 , A 23 , A 24 P 

({0,0,0) J ({A 9 ,A l0 ,An) J ( {A 25 , A 26 , A 27 } A 2 i 

{0,0, 0}^ ( -y, {0,0, 0}^ ( {A14, A 15 , A 16 p 

Al8,Al9) An , 

A21 {-A22, -A23, -A 2 4) , \ ( A 13 {-A14, -A15 , -Ai6h I A3 {0, 0, 0}\ 

0) A 3 J 



C {0,0, 0}\ < -y, {0,0, 0}\ 

({-As.-Aio.-An) A 4 J ({0,0,0) -yi J ( {A„ 

I A21 {-A22, -A23, -A24)"\ I" A13 {-A14, -A15 , -Al6)\ ( A3 

,({-A25,-A26,-A 27 ) A 20 J ({-A„, -Al 8 , -A w ) j ({0,0, 



Ux 2[e2] [E 3 [1]] == ZERO 

True 
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defin[X 2 [e 2 ] , E 3 [l]] //Expand 



C o jo,o, oh | a 20 {o,o, oh t o {o, o, om 

1(0,0,0) J l(A 25 , A 26 , A 27 ) J 1(0,0,0) J 







A20 

(A 2 5, A 26 , A; 

(o, o, oh j' o (o, o, oh j' o (o, o, o)\ 

(-A 25 ,-A 26 ,-A 27 ) A 20 j 1(0,0,0) j 1(0,0,0) A 3 - r J 

( o (o, o, o) ^ ( a 3 - ri (o, o, oj >| ( o (o, o, o) 

{ (0, 0, 



0) 







t\ (h-n (0,0, oh / o (0,0, oh 

J 1(0,0,0) J 1(0,0,0) j, 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] // . {A 3 -> yi , A 20 -> 0, A 2S -> 0, A 26 0, A 27 -> 0} 

A 4 (0,0, Oh ( 



f 

I (0, 



(0, 0, 0) - 
0} 





\\ ( A 4 (0,0,0) 

J UA 9 ,Ai , An} 

(0,0, oh ( -n (0,0,0) 

J i (0, 0, 0) -7i 

A 2 i j-A 22 , -A 23 , -A 24 )\ I An (-A14, -Ai 5 , -A| 6 ) 

(0,0,0) J i(-A 17 ,-A 18 ,-A 19 ) 



\ ( (A 22 , A 23 , A 24 h 

J 1(0,0,0) A21 J 

^ ( {Ai4,Ai 5 ,Ai, 

J I (An, A[ 8 , A19) A 13 

( n (0, 0, 0) \ 
l(o,o,o) r , J 



Ux 2 [e 2 ] [Xi [e 5 ]] == ZERO 

True 



(0, 0, 0) 
(0, 0, 0) 



defin[X 2 [e 2 ] , Xi [e s ] ] // Expand 

1 (o, 0, o)w (o, 0, oh ( 

((0,0,0) j ((0, 0, 0) J ( 

( (0, 0, 0)W (0, 0, 0)\ ( U 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) -jSs-An 

1 (o, 0, oh ^ -a -An (o, o, oh j' (0,0, oh 

( (0, 0, 0) j { (0, 0, 0) j ( (0, 0, 0) ) , 



w 
) 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] //. {An -> -/3 8 } 



f 

I {0, 0. 

f 

I {-A9, -A10, 

I A21 
,U0, 0, 



(0, 0, 0) 
0) 

{0,0, OM 

A4 J 

A21 {-A22 , -A23 , -A24 ) 
0) 



A4 (0, 0, 0) 

(A 9 , A 10 , -/J 8 ) 



f 

I {0, 0, 



( - r , (o,o,o}\ ( 

1(0,0,0) - yi J 1 

A13 {-A14, -A15, -Aie) 

;-A 17 , -Ai 8 , -A 19 ) 



(A22 , A23 ^24)^ 
0) A 21 j 

(Ai 4 , Aij.Aie^ 

{An , Aig , A19 ) A13 j 

( n {0,0,0}^ 

1(0,0,0) yi 



Ux 2 [e 2 ] [Xi [e 4 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



defin[X 2 [e 2 ] , Xi [e 4 ] ] // Expand 



'( o jo, o, o)w o {o,o, oh i o {o,o, oh \ 

{ {0, 0, 0) j { {0, 0, 0) j { {0, 0, 0) J 

( o {o,o, oh ( o {o,o, oh i o {o, o, o) \ 

i{0,0,0) J 1(0,0,0) j 1(0,0,0) -/3 7 -A l0 ] 

C (0,0, 0)\ f-fc-Xw {0,0, Oh ( (0,0, Oh 

1(0,0,0) J I (0, 0, 0) J 1(0,0,0) J , 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] //. {A 10 -> -/3 7 } 

C (0,0,0}\ C A4 (0,0,0}\ (A 22 , A 23 , A 24 )^| 

1(0,0,0) J \{*9,-b,-Ps) J 1(0,0,0) A 21 J 

C (0,0, 0}\ C -n (0,0, 0}\ C (A 14 ,Ai 5 , A 16 }\ 

\{-*9,h,fa) A 4 J 1(0,0,0) -y, J 1(A 17 , A 18 ,A 19 ) A 13 I 

( A 2 i (-A22, -A 23 , -A 24 }\ ( A13 {-A14, -A15, -Ai 6 }\ j- yi (0, 0, 0}\ 

,1(0,0,0) J 1(-A 17 , -A 18 , -A 19 ) j 1(0,0,0) y, J 



Ux 2[e2 ] [Xi [e 3 ]] == ZERO 

True 

defin[X 2 [e 2 ] , Xi [e 3 ] ] // Expand 

'( {0,0, Oh /" {0,0,0} A I {0, 0, 0}\) 

1(0,0,0) j 1(0, 0,0) J 1(0,0,0) j 

(0, 0, 0) W (0, 0, 0) W (0, 0, 0) A 

(0, 0, 0) J { (0, 0, 0) J { (0, 0, 0) -j3 6 - x 9 j 

(0, 0, Oh I -yS 6 - A 9 (0, 0, 0) W (0, 0, 0) 



(0, 0, 0) ) \ (0, 0, 0) ) \ (0, 0, 0) 



0, 0) \ 
J , 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] //. {A 9 -> -li 6 } 

( (0,0, Oh A4 (0,0, OM ( (A 22 ,A 23 , A 24 )^| 

1(0,0,0) J l(-/3 6 ,-/S v ,-/J 8 ) J 1(0,0,0) A 21 J 

C (0,0, 0}\ t -y, (0,0, 0}\ (A 14 ,A 15 , A 16 )> 

\{P 6 ,h,h) A, J 1(0,0,0) -y, J 1(A I7 , A 18 ,Ai 9 ) A 13 , 

( A21 (-A22, -A 23 , -A 24 }\ f A13 {-A M , -A15, -Ai 6 }\ ( yi (0, 0, 0}\ 

,110,0,0) J (j-A 17 ,-A 18 ,-A 19 ) J 1(0,0,0) y, J 



Ux l[e2 ] [X 2 [e 2 ]] == ZERO 

True 
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(defin[Xi [e 2 ] , X 2 [e 2 ] ] // Expand) 



{0, 0, 0) 
0) 



ff 

I {0, 0. 

(Pi +A 4 {0,0, Oh ( 
({0,0,0) J ({0,0 

( {0, 0, 0) 
( {0, 0, 0) 



{0, 0, 0) 
{0, 0, 0) /?! + A 4 
{0, 0, 0) 
0) 
{0, 0, 0) 
{0, 0, 0) 



{0, 0, 0) 
{0, 0, 0) 

{0, 0, 0) 
{0, 0, 0) 

{0, 0, 0) 
{0, 0, 0) 



A[X 2 [e 2 ]] = A[X 2 [e 2 ]] //. {A 4 



f 

I {0, 0. 

f 

( A 2 i 
0, 



{0, 0, 0) 
0) 

{(), 0, 0} 

) 

A21 { — A22 , — A23 , — A24 } 

0} 



), 0}\ 

% ) 



-Hi) 

-fix {0, 0, 0) 

/J 6 ,-/3 7 ,-/J 8 ) 

C -n {o,o,o}\ 

({0,0,0) -y, J 
A13 {-A14, -A15, -Aie,) 

[-An, -Ais, -A19) 



f 

I {0, 0. 
({A„, 

( 



{A22 , A23 , A24 ) ■> 



{A14, A15, Aij)> 



n (0,o,Oh 

{0, 0, 0} y, J 



T[Ei [1], Ei [1], X 2 [e 2 ]] == ZERO 

True 



Leib[Ei[l], Ei[l], X 2 [e 2 ]] //Expand 

{(), 0, 0}\ 



I {0, 0, 0) 

J ({0,0,0) 

{0,0, Oh I {0,0,0) 

0) j ({0,0,0) 

0-2+ A21 {-«3 -A22, -0T4 -A23, -as -A24}"\ j {0,0,0) 
0) 



f ° 

I {0, 0, 

f 

Uo, 0,1 



I Ct2 + A 

\ {0,0,( 



)\ {0,0,0)^j 
J ({0,0,0) j 



{0:3 + A 22 , «4 + A23 , a 5 + A 24 ) 
{0, 0, 0} a 2 + A 2] 

C {0, 0, 0}\ 
({0,0,0) J 
( {0, 0, 0}\ 
({0,0,0) J 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] // . {A 2i -» -a 2 , A 22 -» -a 3 , A 23 ^ -a 4 , A 24 -» -a 5 } 



-fi 



C C {0,0,0}\ ( 
({0,0,0) J ({ 
C {0,0, Oh /■ -y 

({As,/J7,/J 8 } -A J ({0,0. 

/- -ar 2 {0-3, «4, 0-5)^ C 

,({0,0,0) J ({-Ai 7 ,-A 18 ,-A 19 } 



,0, 0}\ 

J 



A13 



{0, 0, 0) 

7 , -As ) 
yi {0,0,0}\ 
0) -y, J 

{-A14 , -A15 , -Al6 ) 




( 

UO, 0,0) 

({An 



a 3 , -a 4 , -a 5 }\ 
-a 2 ) 
{Ai4,Ai 5 , A 16 (> 

Ai8,Ai9) An ; 

( n (o,o,o}\ 

({0,0,0) yi ) 



T[X 2 [e 2 ] , X X [ei] , X X [e 2 ]] 



( {0, 0, 0)w 
({0,0,0) J ({0,0, 

( {0, 0, 0)W 
({0,0,0) J ({0,0, 

I {0, 0, 0)W 
X {0,0,0} j ({0,0, 



{0, 0, 0) 
0) 

{0, 0, 0) 
0) 

{0, 0, 0) 
0} 



) ({0,0 



{0, 0, 0)^ 
0) 
{0, 0, 0) 
{0, 0, 0) 

{0, 0, 0) 
{0, 0, 0) 



) 



Elemento generico de Der(H3( Os, —), 



Leib [X 2 [e 2 ] , Xi [ei ] , Xi [e 2 ] ] // Expand 



C {0,0, 0}\ 

1(0,0,0) o I 

( (0,0,0}\ 

1(0,0,0) J 

f 

1 1(0, 0, 



(0, 0, 0) 
0) 



C (0, 0, 0}\ 
1(0,0,0) J 
t (0, 0, 0}\ 
1(0,0,0) J 
{-5 2 - A w , -6 3 - A 15 , -64 - Ai6 ) 
(0, 0, 0} 



C (0,0, 0M 

1(0,0,0) j 

f 

1(0, 0, 

\ I (0,0, Oh 

j 1(0,0,0) j 



(<$2 +A14, 63 +A15, <5 4 +Ai6}"| 

0} J 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] //. {A 14 -> -8 2 , A 15 -<5 3 , A i6 -> -64} 



' (0, 0, 0) 
. (0, 0, 0} 



-j3, (0, 0, 0} 



l(A,,/6v, 



(0,o, om c - ri (O.o.Oh < 
— jSi J 1(0,0,0) - yi J 1 



C -OT2 (0-3, « 4 , 0-5)^ f A13 

,U0, 0,0) 







{<5 2 , ^3, <54l 
{-An , -A 18 , -A w ) 



1 (0, 0, ( 



{-a 3 , -0-4, -a 5 h 
0} -a 2 
{-<5 2 , -<5 3 , -<5 4 h 

(An , Aig , A19 ) An , 

( 7i {0,0,0}) 

1(0,0,0) r , 



T[X 2 [e 2 ], X X [e 2 ], X![e 8 ]] == ZERO 

True 



Leib [X 2 [e 2 ] , Xx [e 2 ] , X x [e 8 ] ] // Expand 



(( (O.O.Oh 

1 (0, 0, 0) J 

t (0,0, Oh 

1 (0, 0, 0) J 

11(0, 



< (0,0, oh 

1(0,0,0) j 

( 

1 (0, 0. 



) ( 



(0, 0, 0) 
0) 



(0, 0, 0) 
0} 
(Aig -ifr 2 , -An — Xi,0] 
(0, 0, 0) 



C (0,0, oh 

1(0,0,0) j 



(0,0, oh 

0} 
(<A 2 -Ai8, A n + An, Oh 
(0, 0, 0} J 

I (0,0,0)) 
1 (0, 0, 0) 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] //. {A 17 -> -xx, A i8 -> tfr 2 } 



C (0,0, oh 

1 (0, 0, 0} j 
( (0, 0, 0} 

I" -a 2 (0-3 , a 4 , q-5 ) 
, 1 (0, 0, 0} 



-jSi (0, 0, 0) 

-J86.-J87.-A] 



n ( 



(,»; 



-n (o, 0, 0} 

0, 0} 



n 

A13 {62 ,63,64) 
\X\ ' ~4>i, -A19 ) 



(-q-3 , -a 4 , -0-5 h 
(0, 0, 0} -a 2 J 

{-5 2 ,-<5 3 ,-<5 4 } 
{-ATI ■ fa, A19} An 

C 7i (0, 0, 0} 

1 (0, 0, 01 ri 



T[X 2 [e 2 ] , Xi [e 2 ] , Xi [•,]] 

1 (0, 0, 

f 

1 (0, 0, 



{0, 0, 0) 
0] 

(0, 0, 0) 
, 0) 
(0, 0, 0) 
. (0, 0, 0) 



(0, 0, 0} 
(0, 0, 0) 

(0, 0, 0) 
0) 
u, UjW (0,0,0) 
J 1(0,0. 



( (0,0, oh 1 

1(0,0,0) J 1(0, 



0) 







(0,0,0)^ 

(0, 0, 0) 

(0, 0, 0) 

0, 0) 

(0, 0, 0) 

(0, 0, 0) 



)) 



Sesion V 
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Leib [X 2 [e 2 ] , Xi [e 2 ] , Xi [e 7 ] ] // Expand 






{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 






( 



{0, 0, 0} 
{0, 0, 0) 



{0,0, Oh I {A.19 +^i,0, Oh 

(0,0,0) J 1(0,0,0) J 

{-A 19 -fa, 0, Oh ( {0,0,0} A 
(0,0,0) J 1(0,0,0) j , 



A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] //. {A 19 -> } 

' ( (0, 0, Oh ( -jffi (0,0, Oh ( {-a 3 ,-a 4 ,-a 5 }\ ' 

1(0,0,0) j {{-fr, -fr,-p*} J 1(0,0,0} -a 2 J 

( o (o,o,oh i - r , (0,0, o}\ ( o [-62, -s 3 , -5 4 h 

[ifo.fr, fo) -fr J 1(0,0,0) - ri J {{-xu ^2.-^1} *i3 J 

/" -»2 (Q-3,ff4,ff5)^j r A13 (52,53,54)^ ( Tl {0, 0, Oh 

1(0,0,0) J 1(^,-^,^1) J 1(0,0,0) 7l J 

T [X 2 [e 2 ] , X 2 [ei ] , Xi [ei ] ] == X x [ei ] 

True 



A[X X [ei] ] -Leib[X 2 [e 2 ] , X 2 [ei] , X 1 [ei] ] // Expand 

'( {0, o, oh f-f-A.i3 {0,0,0} a < {0, 0, 0}y 

{ (0, 0, 0) J [ (0, 0, 0) J [ {0, 0, 0) J 

f (0, 0, 0) W (0, 0, 0) W {0, 0, 0) \ 

{ (0,0,0) -f-Ai 3 j 1(0,0,0) J WO, 0, 0) j 

( (0, 0, 0)W (0, 0, 0)\ ( (0,0, Oh 

A (0,0,0) J i(0, 0, 0) J 1(0,0,0) j, 



A[X 2 [e 2 ]] =A[X 2 [e 2 ]] //• {A 13 ->-£} 

' C (0, 0, 0)\ t -fr (0, 0, 0)\ C {-a 3 ,-a 4 ,-a 5 }\ 

1(0,0,0) J {{-fr,-fr,-fr} j 1(0,0,0} -a 2 J 

C {0,0, Oh C - 7l (0,0, Oh ( {-5 2 ,-5 3 ,-5 4 ) 

UA,^7,jS 8 } -/3i J 1(0,0,0) - ri J I {-An. ^2,-^1} -f 

( "»2 {Q-3,ff4,ff5)^j ( (52,53,54)^ ( Tl (0, 0, 0) \ 

A {0,0,0} J 1(^1,-^2,^1) J 1(0,0,0) n J 

Variables [A [X 2 [e 2 ] ] ] 

{£, a 2 , a 3 , a 4 , or 5 , fr , /? 6 , fr , yS 8 , Ti , 5 2 , 5 3 , 5 4 , X\ , *Ai , 02 } 



■ X 2 [e 3 ] 



A[X 2 [e 3 ] ] = generic; 
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Elemento generico de Der(H3( Os, —), 



U El [i] [X 2 [e 3 ] ] == ZERO 

True 



(defin[Ei [1] , X 2 [e 3 ] ] // Expand) 



'( Ai (0,0, Oh I 

1(0,0,0) \ x J 1(0,0, 

( (0, 0, 0)W 

{ (0,0,0) J 1(0,0, 

f 

U(0, 



(0, 0, 0) 
0) 



(0, 0, 0) 
0) 

(0, 0, 0) 
0) 
(0, 0, 0) 
(0, 0, 0) 



(0, 0, 0) 
(0, 0, 0) 

(0, 0, 0) 
(0, 0, 0) 

(0, 0, 0) 
(0, 0, 0) 



)] 



)] 



A[X 2 [e 3 ]] = A[X 2 [e 3 ]] //. {Ai ^0} 

o {o,o, oh i 



1 

V (0, 0, 0) 



( 



t A 5 {-Ae, -A 7 , -A 8 }\ 

I (-A.9 , -Aio , -An ) A4 j 

A21 (-A22 , -A23 , -A24 1 

{-A25, -A26, -A27) A20 



) ({-An, 



A4 (A« , A7 , Ag 1 

(A9,Aio,An) A5 
I A 2 (0, 0, 0) 
I {0, 0, 0) A 2 
A13 (-A14, -A15 , -Ais } 

_ Ai8, -A19) A12 



) ( 
') ( 



A20 {A22 , A23 , A24 h 

U25 , A26 , A27 ) A21 , 

A12 {A14, A15, X\(,Y 

{A17 , Aig , A19 ) An , 

A3 {0,0, Oh 

0) A 3 J 



) ( {0, 0, 



Ux 2[ e 3 ] [E2 [1]] == ZERO 

True 



defin[X 2 [e 3 ] , E 2 [1] ] // Expand 



( (0, 0, 0) \ 
{ (0, 0, 0) J 



. 0, 0) \ 
J 



( (0, 0, 0) 
{ (0, 0, 0) 

A 9 j-A 4 ,0, 0) 
U(0, -A 8 ,A 7 ) 



1(0, 0,< 
1(0, 0,i 



(0, 0, 0) 
0! 

(0, 0, 0) 
0) 
(y 6 -A 2 ,0,0) 
(0, 0, 0) 



) ( 



(A 4 ,0, 0)\ 
(0,A 8 ,-A 7 ) A 9 J 
(A 2 -7 6 , 0, Oh 
(0, 0, 0) j 

\ I -A 17 (0,0,0)^ 
J 1(0,0,0) -A 17 J , 



A[X 2 [e 3 ]] = 

A[X 2 [e 3 ] ] // . {A 2 ^ re , A 4 ^ 0, A 7 ^ 0, A 8 ^ 0, A 9 ^ 0, A i7 -> 0} 



( (0,0, oh 

{ (0, 0, 0) J 



0) 
A 5 (-A 6 ,0,0)\ 
Aio,-A n ) J 
A21 (-A22 , _ A 2 3 , -A 2 4 ) 

, v (-A25 > _ A 2 6 , -A 27 ) A 2 o 



((0, 



< n 
{ (o, 0, 1 



/ (A...0. ()\\ 1 A 20 

UO, A 10 ,An} A 5 j UA25, A 2 6,A 2 7) 

(0, 0, 0) 



An (-Ai 4 , -Ai 5 , -Ai 6 

(0, -A[ 8 , -A19) A12 



) (,0, 

) 



(A22, 

A12 (Ai 4 ,^ 
Ai8,Ai 9 ) ) 
A 3 (0, 0, 
(0, 0, 0) A 3 



U X2te3] [E 3 [1]] == ZERO 

True 



Sesion V 
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defin[X 2 [e 3 ] , E 3 [l]] //Expand 



' ( o {o,o, oh t 
1(0,0,0) J Uo,- 



-A 25 (A 20 ,0,0) 
{0, A 24 , -A 23 ) 

( {0, 0, 0) 
{ {0, 0, 0) 



{-A 20 ,0, 0) 

^24 , A 23 ) -A 25 
{0, 0, 0) 
0) 



, 0, Oh I {0,0, on 
J 1(0,0,0) j 

\ ( o {- r6 -A 3 ,o,oh < o 

) 1(0,0,0) J 1(0,0, 



\ t o {o,o, on < 

J 1(0,0,0) J 

o ( r6 +A 3 ,o,oh 

(0, 0, 0) o J 

(0, 0, 0) \ 
0) o J , 



A[X 2 [e 3 ] ] = A[X 2 [e 3 ] ] // . {A 3 -> -re , A 20 -» 0, A 23 -> 0, A 24 -> 0, A 2S -> 0} 

j' (0,0, 0)\ j' (A 6 ,0,0)\ ( (A 22 , 0,0h - 

1(0,0,0) J l{0, Aio, An} A 5 j l(0,A 26 ,A 27 ) A 21 J 

,o, oh j're (o, o, oh / a 12 (a 14 , a 15 , a 16 )\ 

J 1(0,0,0) y 6 J i(0,A 18 ,A 19 ) A 13 J 

\ ( -7 6 {0,0,0} A 

J 1(0,0,0) -76 J 



A 5 



(-A 6 ,0, 0) 

(0, -Aio, -A n } 

hi (-A 22 ,0,0) 
(0, -A 26 ,-A 27 ) 



1. (0, 0, 0} ' 
0) 76 

^13 ( _ Ai4, -Ai 5 , -Al6)' 

(0, -Ai 8 , -Ai 9 ) Ai 2 



Ux 2[e3 ] [Xi [Bi]] == ZERO 

True 



defin[X 2 [e 3 ] , Xi [ei] ] // Expand 

I (0, 0, 0) \ 
I (0, 0, 0) J 
( (0, 0, 0) \ 
I (0, 0, 0) J 
{p 6 -A 5; 0,0} 
(0, 0, 0) 



' r (o, 0, o) 

I (0, 0, 0) 

( (0,0, 0}\ 

I (0, 0, 0) J 

j' (0, 0, 0) 

I (0, 0, 0) 



1 (0,0, oh ^ 

{ (0, 0, 0) J 



f 

I (0, 
) ((0,0 



{\ 5 -fo,0,0) 

0) 

(0, 0, 0) 
0) 



) 

) J 



A[X 2 [e 3 ]] = A[X 2 [e 3 ]] //. {A 5 ->/3 6 } 



(A 22 ,0, 0) 



' C (0, 0, 0) \ r (A 6 ,0,0)\ C 

1(0,0,0) j l(0,A 10 ,A n ) /3 6 J l(0,A 26 . 

ft {-A6,0,0h ( 76 (0,0, Oh C A 12 (A14, A 15 , A 16 ) 

(0, -A 10 , -A„) J 1(0,0,0) 76 J i(0,A 18 ,A 19 ) A 13 

hi {-hi, 0,0}\ t A 13 j-A 14 , -A 15 , -X l6 }\ ( -76 (0,0, Oh 

A(0, -A 26 ,-A 27 ) J 1(0, -A 18 , -A19} Ai 2 J 1(0,0,0) -y 6 j 



Ux 2 [e 3 ] [Xl [e 4 ] ] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



defin[X 2 [e 3 ] , Xi [e 4 ] ] // Expand 



'( {0,0, Oh 

{ {0, 0, 0) J 

( {0,0, Oh 

I {0, 0, 0) J 

I {0, 0, 0) 

{ {0, 0, 0) 



< {0, 0, 0) \ 
1(0,0,0) J 
( (0, 0, 0) \ 
1(0,0,0} J 
(A 10 -/3 5 ,0,0) 
(0, 0, 0) 



i o (o, o, oh ^ 

{ (0, 0, 0) J 
< (& -A 10 ,0,Oh 
I (0, 0, 0) J 

^ c o (0,0, oh 

J '(0,0,0) J , 



A[X 2 [e 3 ]] = A[X 2 [e 3 ]] //. {A 10 ->/3 5 } 



/ i (0,0, oh 

{ (0, 0, 0) J 



( p 6 (-A 6 ,0, 0) 
1(0, -fis, -A n ) 

hi (-A 22 ,0,0) 
(0, -A 26 ,-A 27 ) 







(A 6 ,0, 0}> 
.{0,05, A n ) ft , 
ye (0, 0, 0) < 
,0) r6 

{-A14, -A15, -Ai 6 ) N 



,0,0) \ I y6 (0,0, 0) \ C 

J 1(0,0,0) 7 6 J { 



(0, -A 18 , -A 19 ) 



C (A 22 ,0,0h ~ 

1(0, A 26 ,A 27 ) A21 J 

Al 2 (A14, A15 , Al6h 

(0, Ai8,Ai 9 ) A13 j 

-76 (0,0, Oh 
(0,0,0) -76 J 



Ux 2[e3 ] [Xi [e s ]] == ZERO 

True 



defin[X 2 [e 3 ] , Xi [e s ] ] // Expand 



( (0,0, 0}\ 

{ (0, 0, 0) J 

( (0,0, 0}\ 

{ (0, 0, 0) J 

j' (0, 0, 0) 

I (0, 0, 0) 



( (0, 0, 0) \ 
1(0,0,0) J 
C (0, 0, 0) \ 
1(0,0,0) J 
(£4+ An, 0,0) 
(0, 0, 0) 



( (0,0,0) A 
{ (0, 0, 0) J 
( {-A -A n ,0,0} \ 
{ (0, 0, 0) J 

(o, 0, oh 

(0,0,0) J , 



A[X 2 [e 3 ]] =A[X 2 [e 3 ]] //. {An ->-/3 4 } 



' t (o, 0, oh 

{ (0, 0, 0) J 
( ft (-A 6 ,0,0)\ 
1(0, -ft, ft) J 



ft, (-A 6 ,0,0) 

10, -A, A) 

hi (-A 22 ,0,0) 
A(0, -A 26 , 



1(0, ft,-/ 

(, 



(A 6 ,0, 0) 



-A 2 7) 







(0, 0, 0) 76 

An (-A14, -Ai 5 , -A[6 

(0, -Ai8, -A19} Ai 2 



) ((0,A 26 

) ( 

' ) 



(A 22 ,0, 0) 



hi (A14, A15 , Ai 6 ) ' 
(0, Ai8,Ai 9 ) A13 
-76 (0,0, Oh 
(0,0,0) -76 J 



Ux 2 [e 3 ] [Xi [e 6 ]] == ZERO 

True 



Sesion V 
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(defin[X 2 [e 3 ] , Xi[e 6 ]] //Expand) 



'( {0,0, Oh 

{ {0, 0, 0) J 

( {0,0, Oh 

( {0, 0, 0) J 

I {0, 0, 0) 

{ {0, 0, 0) 



( {0, 0, 0) \ 
( {0, 0, 0) J 
C {0, 0, 0) \ 
I {0, 0, 0) J 
{i^ -ft, 0,0} 
{0, 0, 0) 



{0, 0, 0) 



({0,0.0! 



) ) 



{ft-A^O.O} 
{0, 0, 0) 
< {0,0,0) 
J 1(0,0,0) 



) J 



A[X 2 [e 3 ]] = A[X 2 [e 3 ]] //. {A 6 ->/3!} 



I {0, 0, 0)\ 
{ {0, 0, 0) J 
! ft {-ft,0,Oh 
((0, -ft, ft) J 
A 2 i (-A 22 ,0,0) 
{0, -A 26 ,-A 27 ) 



(ft , 0, 0) 

{0, ft, -ft} p 6 

76 {0, 0, 0) 
0) y 6 

An {-A.14, -Ai 5 , -Ai 6 ) 

{0, -Ai 8 , -Ai 9 ) Ai 2 



\ ( (A 22 ,0,0h ~ 

J l{0, A 26 ,A 27 ) A21 J 

Ai 2 {A14, A15 , Aig) \ 

{0, Aig.Aig} A13 j 

-76 (0,0, Op 



j' 76 {0, 0, Oh ( 
1(0,0,0) y 6 J 1(0, A 18 , 

' 10.!)..); y„ 



) 



') 



Ux 2[ei] [Xa [e 3 ]] == ZERO 

True 



defin[X 2 [e x ] , X 2 [e 3 ] ] // Expand 



( (0, 0, 0) W (0, 0, 0) W 
((0,0,0) j ((0, 0, 0) j ((0,0. 

< (0, 0, 0) W (0, 0, 0) 
((0,0,0) j ((0,0,0) 

1 (o, 0, ojw (o,o,o)^| ( (o, 0, oh 

((0,0,0) J ((0,0,0) A l3 +pJ ((0,0,0) ), 



(0, 0, 0) 
0) 
A 13 +p 4 (0,0,0) 
(0, 0, 0) 




A[X 2 [e 3 ]] = A[X 2 [e 3 ]] //. {A 13 

t {(),(), 0}\ 
( {0, 0, 0) J 

C As {-/3i, 0, on 

({0, -ft.ft) j 

( A21 

.((0, -A 26 , 



-Pi } 



C {/?,, 0, 0}\ C (A 22 ,0,0}\ 

({0,ft,-ft} jSe J (iO,A 26 ,A 27 ) A 21 J 



{-ft,o, 0) 
84} 

i-A 22 ,0,0} 
-A 27 ) 



76 {0, 0, 0) 
0, 0) y 6 



) ( 



Ai 2 



"P4 

{0, -A 18 ,-A 19 ) 



(-A14 , -A15 , -Ai6 ' 

A 12 



{0, A 18 , A 19 } 
1(0, 0, 



{A14, A15 , Ai6 ) 

-pi 



76 {0, 0, 0) 
0) -76 



Ux 2 [a 2 ] [X 2 [e 3 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



defin[X 2 [e 2 ] , X 2 [e 3 ] ] // Expand 

'( {0, 0, 0} W {0, 0, 0} W {0, 0, 0) p 

1(0,0,0} j 1(0,0,0} j ({0,0,0} j 

I (0, 0, 0} W (0, 0, 0} W (0, 0, 0} \ 

1(0,0,0} J 1(0,0,0} J 1(0,0,0} X l2 +Xi) 

I (0,0, 0}\ (Xn+Xi (0,0, 0}\ I (0,0, 0}\ 

{ (0, 0, 0} J { (0, 0, 0} J I (0, 0, 0} ) , 



A[X 2 [e 3 ] ] = A[X 2 [e 3 ] ] //. {A 12 -> -xi} 

( I (0,0, 0}\ C (ft,0,0}\ C {A 22 , 0,0} \ 

1(0,0,0} J 1(0, ft, -A) ft J 1{0,A 26 ,A 27 } A 21 J 

C ft {-ft, 0,0} \ C 76 (0,0, 0}\ C -ATi {Ah.Ais, A 16 h 

l(0,-ft,ft} J 1(0,0,0} y 6 J l(0,A 18 ,A 19 } -p 4 J 

C A 21 {-A 22 ,0,0}\ I -p 4 {-Ai4,-Ai5,-Ai 6 }\ -r 6 {0,0,0}^ 

,1(0, -A 26 , -A 27 } J 1(0, -A 18 , -A 19 } -xx I 1(0,0, 



. 0} -76 



T[Ei [1], Ei [1], X 2 [e 3 ]] == ZERO 

True 



(0, 0, 0}\ I (ai +A 22 , 0, Oh 

0} J 1 (0, a 5 + A 26 , A 27 - a 4 } a 6 + A 2 i , 



Leib[Ei[l], Ei[l], X 2 [e 3 ]] //Expand 

i (0, 0, Oh ( 

1(0,0,0} j 1(0,0, 

( (0, 0, 0}\ I (0, 0,0} \ ( (0,0, 0}\ 

1(0,0,0} j 1(0,0,0} j 1(0,0,0} j 

a 6 +A 2 i {-ai -A 22 ,0, 0}\ ( (0, 0, 0}\ ( (0, 0, 0}\ 

,1(0, -a 5 -A 26 ,a 4 -A 27 } J 1 (0, 0, 0} J 1(0,0,0} J 

A[X 2 [e 3 ] ] = A[X 2 [e 3 ] ] // . {A 2i -» -a 6 , A 22 -» -a x , A 26 -» -a 5 , A 27 -» a 4 } 

C (0,0, Oh t (ft, 0,0} \ {-a,,0,0}\ 

1(0,0,0} J l(0,ft,-ft} ft j lj0,-a 5 ,a 4 } -«« J 

C ft {-ft,0,0}\ y 6 (0,0,0}\ ( -*i (Ai4,A 15 , A 16 h 

l(0,-ft,ft} J 1(0,0,0} y6 J 1{0,A 18 ,A 19 } -p 4 J 

( -Q-6 (ai,0,0}\ t -p 4 (-Aw, -A 15 , -A 16 }>, -76 (0,0, 0}\ 

, l(0,o 5 ,-a 4 } j 1(0, -A 18 ,-A 19 } -at, j 1(0,0,0} -y 6 ) 

T[X X [ei], X X [e 2 ], X 2 [e 3 ]] == ZERO 

True 

Leib [Xx [ei ] , Xx [e 2 ] , X 2 [e 3 ] ] // Expand 

I o (o, o, o}\ i o (o, o, o}\ i o (o,o, on 

1(0,0,0} j 1(0,0,0} j 1(0,0,0} j 

( o (o, o, oh ( o (o, o, oh i o (0,0,0} 

1(0,0,0} J 1(0,0,0} j 1(0, A 18 +p 3 , A 19 -p 2 } 

o (0,0, oh i o (0, 0,0} \ z' o (o,o, 0}\ 

1(0,0,0} J 1(0, -A 18 -p 3 ,p 2 -A 19 } J 1(0,0,0} j 
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A[X 2 [e 3 ] ] = A[X 2 [e 3 ] ] //. {A 18 -> -p 3 , A 19 -> p 2 } 

j-Q-i, 0, 0}^ 



C {0,0, Oh J- 08i,O,O}\ f 

UO,o,o) o J Uo, j8 5 , -A} As j Uo,-a 5 , 

/J 6 {-j8i.0,0}\ C 76 {0,0, 0}\ C -ATi (Ai4,A 

{0, -/3 5 ,/3 4 } j 1(0,0,0) 76 j U0.-P3.P2} 

j- -a 6 {ai.0, 0}\ t -p 4 i-A 14 , -A 15 , — Ai 6 }\ / -76 {0,0, 

, U0.a5.-a4} J l{0,p 3 ,-p 2 } -xx J 1(0,0,0) - 76 



T[X 2 [ei] , X 2 [e 3 ], X X [e 7 ]] == ZERO 

True 



Leib [X 2 [ei ] , X 2 [e 3 ] , Xi [e 7 ] ] // Expand 

1 1 (0, 0, o)w (0,0, o}\ i {0, 0, 0}y 

{ (o, 0, 0} J { (o, 0, 0} \ l5 - m ) [ (o, 0, 0} J 

(Ais-ife (0,0, oh c (0,0, oh / (0,0, oh 

{ (0, 0, 0} J { (0, 0, 0} j { (0, 0, 0} J 

( (o, 0, ojw (0,0, oh ( (0,0, oh 

A (0,0,0} j 1(0,0, 0} j ((0,0,0} ), 



A[X 2 [e 3 ]] = A[X 2 [e 3 ]] 

( ( (0, 0, 0}\ 
{ (0, 0, 0} J 
I ySe {-Pi, 0,0}\ 
UO,-A,A} J 
( -a 6 {ori, 0, Oh 

, i(0,a 5 ,-a 4 } J 



• {A15 -» )? 2 } 

tft.O, Oh 

{0,^5, -A} A J 

C 76 (0, 0, 0} \ 
I (0, 0, 0} 76 J 
-p 4 {-A I4 , -772, -A 16 } 
(0, p 3 ,-p 2 ) ~Xi 



( {-ai, 0, 0}\ \ 

{ (0, -ff 5 , ff4 } -»6 J 

~Xi {A14, 7?2, Ai 6 h 

(0, -p 3 , P2 } -P4 J 

C -y 6 (0,0, Oh 
1(0,0,0} -y 6 J 



( 



T[X 2 [e 2 ] , X 2 [e 3 ] , X X [e 3 ]] == ZERO 

True 



Leib [X 2 [e 2 ] , X 2 [e 3 ] , Xi [e 3 ] ] // Expand 

i (o, o, oh 1 {o, o, oh /- (0, 0, 0}y 

1(0,0,0} J i {0,173 -Ai6,0} J 1(0,0,0} J 

I {0,0, Oh I (0, 0, Oh ( (0, 0, Oh 

1(0, Aie -773,0} j 1(0,0,0} J 1(0,0,0} J 

( {0, 0, 0} A I {0,0, Oh ( (0, 0, Oh 

, 1(0,0,0} J 1(0,0,0} J 1(0,0,0} j, 
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Elemento generico de Der(H3( Os, —), 



A[X 2 [e 3 ]] = A[X 2 [e 3 ]] //. {A 16 -> 77 3 } 

I ( (0,0, Oh ( {ft.O.Oh 

1(0,0,0) J 1(0, ft, -£4) ft J 

(o, 0, oh 

5 ) 



76 



(0, 0, Oh ( 
0) J { 

ft {-ft, 0,0} \ 
{0, -ft, ft} J 1(0,0,0} y 6 

( -a 6 {a u 0, Oh f -P4 (-A14, -772, -^3} 
, {{0,a 5 ,-a 4 } J I(0,p3,-P2) 



0, Oh ^ 

. (0, -a 5 , a 4 ) -ff 6 

~X\ {^14, ??2, 773} 

(0, -p 3 , P2 ) -P4 

\ C "76 (0,0, Oh 
J 1(0,0,0} -ye J , 



( 



T[X 2 [e 3 ] , X 2 [ei] , X X [ei]] 

True 



-Xi [e 3 ] 



A[X X [e 3 ] ] +Leib[X 2 [e 3 ] , X 2 [ei] , Xj. [ei] ] // Expand 

l ( (0,0, Oh ( (-£-<5i +771 -A14, 0, 0}\ ( (0,0,0}^ 

1(0,0,0} J 1(0,0,0} J 1(0,0,0} J 

(0 (o, 0, oh j' (o, 0, o) 

1(0,0,0) J 1(0,0,0) 

/O (0,0, Oh ( (0,0, Oh 

1(0,0,0) J 1(0,0,0) J, 



C {£ + 6i -771 +Ai 4 ,0, Oh 
I (0, 0, 0) J 



f {0,0, Oh 
1(0,0,0) J 



A[X 2 [e 3 ] ] = A[X 2 [e 3 ] ] //. {A 14 ^ - <5i + 771} 

{0,0, Oh ( (ft, 0,0) 



( (0, 0, Oh ( 

1(0,0,0) j 1(0, ft,-/ 



) ( 



ft 

1(0, as, 



■a 4 ) 







-«i, 0, 0)' 



(0, -a$ , a 4 ) -org J 
-ATI + 771 , 772 , 773 ) 



'6 ("ft, 0,0) \ 

{0, -ft, ft} J 1(0,0,0) 76 J UO.-p3.p2} -P4 

ff 6 {ai, 0, Oh /" -p 4 + -771, -772, -773}^ f -76 (0,0,0) 

J 1(0, p 3 ,-p 2 ) -ATI 



h C -76 {0,0, Oh 

J 1(0,0,0} -76 J 



Variables [A [X 2 [e 3 ] ] ] 

ai, a 4 , a 5 , a 6 , ft, ft, ft, ft, y 6 , tfi, 771, 772, 773, p 2 , p 3 , P4, Xi\ 

Eliminating the extra parameter 

T [Xx [e s ] , Xi [e 4 ] , X 2 [e 3 ] ] == X 2 [ei ] 

True 



A[X 2 [ei] ] -Leib[X! [e s ] , X x [e 4 ] , X 2 [e 3 ] ] // Expand 



f (0,0, Oh 
{ (0, 0, 0) J 



'i (0, 0, oh / (0, 0, Oh ( (0,0,0)- 

1(0,0,0) J 1(0,0,0) j 

( (0, 0, Oh I {0,0, Oh /2^ + <5i -e 2 -771 -03 (0,0,0) 

1(0,0,0) J 1(0,0,0) J { 



(0, 0, 0) 
(0,0,0)' 



I (0,0, Oh ( (0,0,0) A I (0, 0, Oh 

A {0,0,0} J 1(0,0,0) 2f + tfj -e 2 -771 -h ) 1(0,0,0) J 
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Do[ 

A[Xi[ ei ]] =A[X 1 [e i ]] //. {03 ->2f + <5i - e 2 - rji } , {i, 1, 8}] 

A[X 2 [ei] ] = A[X 2 [ei] ] //. {<t> 3 -> 2 f + Si - e 2 - 771}; 
A[X 2 [e 2 ] ] = A[X 2 [e 2 ] ] //. {<t>3 -> 2 £ + <5i - e 2 - ??i } ; 
A[X 2 [e 3 ] ] = A[X 2 [e 3 ] ] //. {(t> 3 -» 2 f + 61 - e 2 - 771}; 

Union [Variables [A [Xi [ei ] ] ] , Variables [A [X x [e 2 ] ] ] , 
Variables [A [X x [e 3 ] ] ] , Variables [A [Xi [e 4 ] ] ] , 
Variables [A [X x [e 5 ] ] ] , Variables [A [Xi [e 6 ] ] ] , 
Variables [A [X x [e 7 ] ] ] , Variables [A [Xi [e 8 ] ] ] , 
Variables [A [Ei [1] ] ] , Variables [A [E 2 [1] ] ] , 
Variables [A [E 3 [1] ] ] , Variables [A [X 2 [e x ] ] ] , 
Variables [A [X 2 [e 2 ] ] ] , Variables [A [X 2 [e 3 ] ] ] ] 

{£, an, 012,013, 014,015, ai6, a 7 ,a s , Pi, p 2 , fo, P*, @5, 06, Pi, 
Ps, 7i, 72 , 73 , 74 , 75 , 76 , 7i, 7s, $i, $2, S3, 64, 6 5 , 6 6 , <5 7 , ei , e 2 , 

63, 64, TJl, T)2, f]3, 1)4, T)5,P\,Pl, P3, P4, P5, P6, 4>l, <t>2, Xi,fii, ^2} 



Length [%] 

52 



■ X 2 [e 4 ] 



A[X 2 [e 4 ] ] = generic; 
U El [i] [X 2 [e 4 ] ] == ZERO 

True 



(defin[Ei [1] , X 2 [e 4 ] ] // Expand) 

U X\ {0,0, Oh I (0, 0, 0)W 

1(0,0,0) Ai J 1(0,0,0) J 1(0,0,0) 

( (o, 0, o)w (o, 0, o)\ i 

{ (0, 0, 0) J { (0, 0, 0) J { (0, 0, 0) 

( (o, 0, o)w (o, 0, oh ( 

A (0,0,0) J 1(0, 0,0) J 1(0,0,0) 



(0, 0, 0}\\ 
J 

(o, 0, oh 
J 

(o, 0, oh 
), 



A[X 2 [e 4 ]] =A[X 2 [e 4 ]] //. {Ai ->0} 



( (0,0, 0}\ C A 4 (A 6 ,A 7 ,A 8 h t A 20 {A 22 , A 23 , A 24 ) ^ 

1(0,0,0) J 1(A 9 ,A I0 ,A„} A 5 J UA 25 ,A 26 , A 27 ) A 21 

( A 5 (-A 6 ,-A 7 ,-A 8 M ( A 2 (0,0, 0}\ J- A 12 (A 14 , A 15 , A 16 r 

l(-A 9 ,-A 10 ,-A„) A 4 J 1(0,0,0) A 2 J 1(A 17 ,A 18 , A 19 ) A 13 

A 21 (-A22, -A 23> -A 24 M ( A13 (-A 14 , -A 15 , -Ai 6 }\ ( A 3 (0, 0, 0}\ 

A{-A25,-A 2 6,-A 27 ) A 20 J U-A„, -Ai 8 , -Ai 9 ) Ai 2 J 1(0,0,0) A 3 J 



Ux 2[ e 4 ] [E 2 [1]] == ZERO 

True 



Elemento generico de Der(H3( Os, —), 



defin[X 2 [e 4 ] , E 2 [1] ] // Expand 



' t o {o,o, oh < o {o,o, oh i o {o, a 4 ,o)\\ 

1(0,0,0) J 1(0,0,0) J l(-A 8 ,0,A 6 ) A l0 J 

( o (0,0, o)\ / o (0,0, oh c o {o,A 2 -y 7 ,oh 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) J 

C A 10 (0, -A 4 , 0} A I (0,77 -A 2 , Oh < -A 18 {0, 0, Oh 

A(A 8 ,0, -A 6 ) J 1(0,0,0) J 1(0,0,0) -Ai 8 J , 



A[X 2 [e 4 ]] = 

A[X 2 [e 4 ] ] // . {A 2 -> y 7 , A 4 -> 0, A 6 -> 0, A 8 -> 0, A i0 -> 0, Ai 8 -> 0} 

C {0,0, Oh J- {0,A 7 ,0}\ C A 20 (A 22 , A 23 , A 24 )y 

1(0,0,0) j UA9,0,A„} A 5 j UA 2 5,A 26 ,A 27 } A 21 J 

C A 5 {0,-A 7 ,0}\ y 7 {0,0,0}\ ( A 12 {A 14 , A 15 , Ai 6 }\ 

U-As.O.-An) J 1(0,0,0) y 7 J 1{A 17 ,0,A 19 ) A 13 J 

f" A 21 {-A 22 , -A 23 , -A 24 h I Ai 3 {~Ai 4 , -A 15 , -A 16 h /" A 3 

Al-^5,-A 26 ,-A 27 ) A 20 J U-Ai 7 ,0,-A, 9 } Ai 2 j UO, 0, 



, 0) A 3 



Ux 2 [e 4 ] [E 3 [1]] == ZERO 

True 

defin[X 2 [e 4 ] , E 3 [1] ] // Expand 



( {0,0, Oh ( {0, -A 20 ,0h ! {0, 0, 0)\ ^ 

1(0,0,0) J l(A 24 ,0, -A 22 ) -A 26 J 1(0,0,0) J 

( -A 26 {0,A 20 ,0h I (0,0, 0)\ j' (0,y 7 +A 3 ,0)\ 

l(-A 24 ,0, A 22 ) j 1(0,0,0) J 1(0,0,0) J 

( (0, 0, 0) A ( (0, -77 - A 3 , 0) \ j' (0, 0, 0) ^ 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) J 

A[X 2 [e 4 ] ] = A[X 2 [e 4 ] ] // . {A 3 -> -n , A 20 -> 0, A 22 -> 0, A 24 -> 0, A 26 -> 0} 

f {0,0, Oh ( {0, A 7 ,()M ( {0, A 23 ,0}\ ^| 

UO, 0, 0) I UA 9 ,0, An) A 5 J 1{A 25 ,0, A 27 ) A 2 i } j 

C A 5 {0,-A 7 ,0}\ y 7 {0,0,0}\ ( A 12 {A 14 , A 15 , A 16 }\ 

U-As.O.-An) j 1(0,0,0) y 7 j l(A 17 ,0,A 19 ) A 13 J 

C A 21 {0, -A 23 , 0}>| Ai 3 {-Ai 4 ,-A 15 ,-Ai 6 }\ ( -y 7 {0,0, 0}\ 

A{-A25,0,-A 27 ) J 1{-A 17 ,0, -A 19 ) A 12 J 1(0,0,0) -y 7 J 



Ux 2 [e 4 ] [Xi [ei]] == ZERO 

True 
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defin[X 2 [e 4 ] , Xi [ei] ] // Expand 



'i o {o,o, oh t o {o,o, oh t o {o, o, o}\ \ 

{ {0, 0, 0) J { {0, 0, 0) J { {0, 0, 0) J 

( o {o,o, oh c o {o,o, oh t o (o,A 5 -/3 7 ,oh 

( {0, 0, 0) J I {0, 0, 0) J ( {0, 0, 0) J 

f {0, 0, 0) W {0, fa - A 5 , Oh ( {0, 0, 0) ^ 

1(0,0,0) J 1(0,0, 0} J 1(0,0,0) j , 



A[X 2 [e 4 ]] = A[X 2 [e 4 ]] //. {A 5 ->/3 7 } 

( (0,0, 0}\ ( (0,A 7 ,0}\ ( (0, A 23 , 0}\ •> 

[ (0,0,0) j l(A 9 ,0,A„) /3 7 j l(A 25 ,0,A 27 ) A 21 j 

C /J 7 (0, -A 7 ,0}\ C y 7 (0,0, 0}\ C A 12 (Ai 4 , Ai 5 , A 16 } \ 

l(-A 9 ,0,-A n ) J 1(0,0,0) y 7 J 1(A 17 ,0,A 19 ) A 13 J 

C A 21 (0, -A 23 ,0}\ ( Ai 3 {-Ai4,-Ai5,-Ai 6 h f -y 7 (0,0,0)^ 

A(-^25,0, -A 27 ) j 1(-A 17 ,0, -A 19 ) A 12 j 1(0,0, 



, 0) -y 7 



Ux 2[e4 ] [Xi [e 3 ]] == ZERO 

True 



defin[X 2 [e 4 ] , Xi [e 3 ] ] // Expand 

'( o {0, o, oh i o (0, o, o)\ i o {o, o, Oh 1 

1(0,0,0) j 1(0,0,0} J 1(0,0,0) j 

o (o, o, oh ( o (o, o, o\\ t o (o, -p 5 -x g , o\\ 

{0, 0, 0) J { (0, 0, 0) J 1 {0, 0, 0) J 

(0,0, Oh ( (0, /3 5 +A 9 , 0)\ ( (0, 0, Oh 

J 1(0,0,0) J , 



U (0,0,0) ) WO, 0,0) 



A[X 2 [e 4 ] ] = A[X 2 [e 4 ] ] //. {A 9 -> -/3 5 } 

( (0,0,0}\ C (0,A 7 ,0M f (0,A 23 ,0}\ 

1(0,0,0) J U-ft,0,A„} fa J 1(A 25 ,0,A 27 ) A 21 J 

C fa (0, -A 7 ,0}\ C y 7 (0,0,0}\ A 12 (A 14 , A 15 , A 16 } \ 

l(/3 5 ,0,-An) J 1(0,0,0) y 7 J 1(A 17 ,0,A 19 ) A 13 J 

/ A 21 (0, -A 23 ,0}\ Ai 3 {-Ai4,-Ai5,-Ai 6 }\ f -y 7 (0,0, 0}\ 

A{-^25,0,-A 27 ) J l(-A 17 ,0, -A 19 ) A 12 J 1(0,0,0) -y 7 J 

Ux 2[ e 4 ] [Xi [e 5 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



defin[X 2 [e 4 ] , Xi [e s ] ] // Expand 



'i o {o, o, oh i o {o, o, oh t o jo, o, oh 1 

({0,0,0) J 1(0,0,0) j 1(0,0,0) j 

( (0, 0, 0)\ / (0, 0, 0)\ j' 

((0,0,0) J ((0,0,0) J ((0,0. 



C (0,0, 0}\ ( 
((0,0,0) J ( 



( {0,0,0} A 
((0,0,0) J 
(0, A„ -ft.O} 
(0, 0, 0) 



(0, ft -A n ,0) 
0) 



) 

\ ( (0, 0,0} \ 
) ((0,0,0) J , 



A[X 2 [e 4 ]] = A[X 2 [e 4 ]] //. {An ->/3 3 } 

( o {o,o, oh i o 

({o,o,o) o j ({-ft, a 



[( 



(0, 0, 0)\ f {0, A 7 ,0) 

0) j ({-ft.O.ft} ft 

C ft {0,-A 7 , 0}\ C y 7 {0,0, Oh 

({ft,0, -ft) J ({0,0,0) y 7 J 

A 2[ {0, -A 23 ,0}\ j- A13 {-Aw, -A 15 , -Ai 6 : 

j ({-A„,0, 



-A25 , 0, -A27 ) 



-A 19 ) 



I {0,A 23 ,0}\ 

({A 25 ,0,A 27 ) A 21 J 

( A 12 

({Ai 7 ,0, Ai 9 ) 



{A14, A15 , Ai6 1 
^13 



[ ^ 

V {0, 0. 



y 7 {0,0, 0^ 
0) -y 7 , 



Ux l[e ,] [X 2 [e 4 ]] == ZERO 

True 



defin[Xi [e 7 ] , X 2 [e 4 ] ] // Expand 

( ( {0,0, Oh ( (0,0,0) 
( (0, 0, 0) J ( {0, ft - A 7 , 0) 

(0, 0, 0) 



i jo, 0, 0}\ 1 {o, 0, oh 

((0,A 7 -ft,0) ) ({0,0,0) J 

0,0) \ / {o, 0, oh 

j ((0,0,0) J 



{0,0, or 

. (0, 0, 0) 



(0,0,0)^ 

(0, 0, 0) 

{0, 0, 0) 

(0, 0, 0) 

{0, 0, 0) 

(0, 0, 0) 



) 



A[X 2 [e 4 ]] = A[X 2 [e 4 ]] //. {A 7 ->/3i} 

t {0,0, on c 

({0,0,0) J ( 
{0, -ft , 0) 



{0, ft , 0) 

5,0, ft) ft 



C ft 

({ft,o, -/ 



[( 



(ft,0, -ft) 
A 2 i 

{-^25 , 0, -A 27 ) 



') ( 

-A 23 ,0h ( A13 
J ({-A„,0, -A 19 ) 



7? {0,0,0}) 
{0, 0, 0) y 7 J 



( 

1{A 25 ,0. 
({Ai 7 ,0. 



Ai 2 



{0,A 23 ,0}\ 
A 27 1 A 21 J 
Ai 2 {A14, A 15 , A 16 ['j 
17, u, A19) A[ 3 J 

( -y 7 {0,0, 0}\ 
({0,0,0) -77 J 



T [Ei [1], Ei [1], X 2 [e 4 ]] == ZERO 

True 



Leib[Ei[l], Ei[l], X 2 [e 4 ]] //Expand 



f ° 

UO, 0, 

f ° 

UO, 0, 



( 



{0, 0, 0) 
0) 

{0, 0, 0) 
0} 

« 7 + A21 {0, -a\ - A 23 , 0) 

}a 5 -A 25 , 0, -a 3 -A 27 ) 



( ° 

1(0,0, 

f 

I {0, 0, 



{0, 0, 0) 
0) 

{0, 0, 0} 
0) 
{0, 0, 0} 
{(), 0, 0) 



{0,ai +A 23 ,0h 

{A 25 - ff 5 , 0, or 3 + A 27 ) a-i + A 21 , 

( o {o,o, oh 

( {0, 0, 0) o J 
( {0,0, 0}\ 
((0,0,0) J 
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A[X 2 [e 4 ] ] = A[X 2 [e 4 ] ] // . {A 2 i -» -a 7 , A 23 -» -ai , A 25 -> as , A 27 -> -a 3 } 

C (0,0,0}\ ( {0, A. 0}\ C {0,-a 1; 0}\ 

1(0,0,0) J U-j8 5 ,0,A} Pi J l{a 5 ,0,-a 3 } -a 7 J 

C /? 7 (0, -y3 1; 0}\ J- y 7 (0,0,0}\ ( X n (A, 4 , A, 5 , A 16 )\ 

I {ft, (),-#,} j 1(0,0,0) y 7 j l{Ai 7> 0,Ai 9 } A 13 J 



C -a 7 {0, a-i.OM A13 {-Ai4,-Ai5,-Ai6}\ / -y 7 (0,0,0) 

,l(-a 5 ,0,a 3 ) J U-Ai 7> 0,-A 19 } A 12 J 1(0,0, 



. 0) -y 7 



T[X X [ei] , X X [e 2 ] , X 2 [e 4 ]] == ZERO 

True 



Leib [Xi [ei ] , X x [e 2 ] , X 2 [e 4 ] ] // Expand 

( {0,0, on 1 {0,0, oh / (o, o, oh 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) J 

C {0,0, Oh c {0, 0, Oh / (0,0,0) 

1(0,0,0) J 1(0,0,0) j 1 



( {0,0, Oh c A13 +p s {0,0, Oh / 

A {0,0,0} j I{p 3 -Ai7,0, -Aw-pi} J 1(0,0, 



{An -p3» 0, Xi 9 +Pi ) A i3 +p 5 
(0, 0, 0) \ 
0) J 



A[X 2 [e 4 ] ] = A[X 2 [e 4 ] ] / / . {A13 -» -p 5 , A i7 -» p 3 , Ai 9 -» -p x } 

' /" {0,0, Oh ( {0,j8i,0h /" (0,-ai,0)\ ' 

1(0,0,0) J U-A,0,&} /3 7 J l{a 5 ,0, -or 3 } -07 i 

j' /? 7 (0, -/3i,0)\ / y 7 {0,0, Oh / A12 {A i4 , A15, A 16 h 

1{^ 5 ,0, -/3 3 ) J 1(0,0,0) y 7 J l(p 3 ,0, - Pl ) -ps ) 

I -a 7 {0,on,0}\ t -ps {-A 14 , -A15, -A 16 h C -r? (0, 0, Oh 

l(-a 5 ,0,a 3 ) J U-P3,0,pi} A 12 J 1(0,0,0) -77 J 

T[X X [ei] , X X [e 4 ] , X 2 [e 4 ]] == ZERO 

True 



Leib [Xi [ei ] , X x [e 4 ] , X 2 [e 4 ] ] // Expand 

u (0, 0, o) \ i (0, 0, oh 1 (0, 0, 0) \ 

1(0,0,0) j 1(0,0,0) J 1(0,0,0) J 

1 jo, 0, o) \ / (0, o, oh c jo, 0, 0) • 

1(0,0,0) J 1(0,0,0) J [{Aw -£3,0,6! -Ah} , 

I (0, 0, 0}W {0,0,0} A ( (0, 0, Oh 

A {0,0,0} J l(e 3 -A 16 ,0, A, 4 -61} J 1(0,0,0} J 
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Elemento generico de Der(H3( Os, —), 



{0, -a\ , 0) s 



A[X 2 [e 4 ]] = A[X 2 [e 4 ]] //. {A 14 ->ei, Ai 6 -> e 3 } 

< ( o (o,o,oh c o (o,/3,,o}\ r 

1(0,0,0) o J U-j8 5 ,0,/J 3 } /3 7 J i 

{0,0, Oh / A12 {ei.Aij. 

77 J l(P3,0, -pi) -p 5 

J -«i 10. n ,.())-! , f ... {- ei ,-A 15 ,-e 3 }^ ( -77 (0,0,0) 



-a 7 (0, a { , 0) 
.{-a 5 ,0,or 3 } 



) ( 



-ps 

(-p 3 ,0, pi) 



Xl2 



h C -r? (0,0, Oh 
J 1(0,0,0) -77 J 



T[X X [ei] , X X [e 6 ], X 2 [e 4 ]] == ZERO 

True 



Leib [Xi [ei ] , Xi [e 6 ] , X 2 [e 4 ] ] // Expand 

( (0, 0, 0) \ 



{0,0,0}- 
{tf> 2 -A l2 ,0,0) , 






{0, 0, 0) 


{0, 0, 0} 








{0, 0, 0} 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0} 






{0, 0, 0} 
{0, 0, 0) 

{0, 0, 0} 

:-^2,0, 0} 

{0, 0, 0} 
{0, 0, 0) 



) j 



A[X 2 [e 4 ]] = A[X 2 [e 4 ]] //. {A 12 ->iA 2 } 



{0, 0, 0} 
{0, 0, 0) 

Pi {0, -A , 0} 



0,0} \ t {0,/3,,0h ( 

J U-j8 5 ,0,A} Pi ) I tors, 0,- 



-a n {0, cx\ , 0) 
-as , 0, «3 } 



) (, 



{0, -ai, 0} \ \ 
a 3 } -a 7 
if/ 2 {ei , Xi 5 , e 3 ) 
-Ps 

-p 5 {-ei, -Ai 5 , -e 3 h ( -77 (0, 0, 0}\ 

P3,0,P!} (fr 2 J 1(0,0,0} -77 J 



I Pi (0, -/3i,0)\ / 77 (0,0, Oh j' I//; 

Uy8 5 , 0,-ft} J 1(0,0,0} 77 J l{p 3 ,0,-pi} 



T[X X [ei], X X [e 7 ], X 2 [e 4 ]] ==X 2 [e 2 ] 

True 



A[X 2 [e 2 ]] -LeibfXi [ei], Xi[e 7 ], X 2 [e 4 ]] //Expand 

o, oh ( o {0, o, oh 

J 1(0,0,0} o J 








f 


(0, 0, 0) 


,0,0, 0,j 


I (0, 0, 0} 







f 


(0, 0, 0} 


(0,0, 0}j 


I (0, 0, 0) 





(0,0, 0}j ( -, 


-Si +e 2 


(0, 0, 0) 


(0, 0, 0) 



h ( o (o,o,o} \ 

J 1(0,0,0) +e 2 - A 15 J 



0, Oh 
J 



(0, 0, 0} - 
(0, 0, 0} 



o, oh 
o J 
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A[X 2 [e 4 ] ] = A[X 2 [e 4 ] ] //. {A 15 <5i + e 2 } 

' ( (0,0,0h j' (0,/3i,0)\ ( {0,-ai,Oh 

1(0,0,0) J i{-ft,0,/3 3 ) /3 7 J Uors.O, -or 3 } -a 7 J 

I yS 7 (0,-/3!, Oh / y 7 (0,0, Oh C ^ 2 {6i, -f-tfi +e 2 ,e 3 h 

I {ft, 0, -&} J 1(0,0,0) y 7 J l(p 3 ,0, - Pl } ) 

I -07 (0,«i,0h / -p 5 {-ei.f + tfi-ez.-ej}^ ( -y 7 {0, 0, Oh 

> U-as,0,a 3 } J U-p3,0,pi} ^2 J 1(0,0,0) -y 7 J 

Variables [A [X 2 [e 4 ] ] ] 

{£ ari , a3 , as , «7 , A , 3 , j8 5 , jS 7 , y 7 , <5i , €i , e 2 , e 3 , p 1 , p 3 , p 5 , ^ 2 } 



X 2 [e 5 ] 

A[X 2 [e 5 ] ] = generic; 
U El[ i] [X 2 [e s ]] == ZERO 

True 

(defin[Ei [1] , X 2 [e s ] ] // Expand) 



(I Ai {0,0,0} A l (0, 0, 0)W (0,0,0)^ 

1 (0, 0, 0) Xi j [ (0, 0, 0) j [ (0, 0, 0) 

f {0,0, Oh ( {0, 0, Oh < (0,0,0) 

1 (0,0,0) j ((0, 0,0) J 1(0,0,0) 

( (o, 0, o)w (o, 0, oh ( (o, o, oh 

A (0,0,0) J 1(0, 0,0) j 1(0,0,0) j, 



A[X 2 [e s ]] = A[X 2 [e 5 ]] //. {A x ->0} 

j- {0,0, Oh ( A 4 {A 6 ,A 7 ,A 8 M ( A 20 {A 22 , A 23 , A 24 ) ^ 

1(0,0,0) J 1{A 9 ,A 10 ,A„) A 5 j 1{A 25 ,A 26 , A 27 ) A 21 

( A 5 {-Ae, -A 7 , -A 8 }\ ( A 2 {0,0, Oh ( A 12 {A K , A 15 , A 16 (^ 

lj-A 9 ,-A 10 ,-A„) A 4 J 1(0,0,01 A 2 J UA 17 ,A 18 , A 19 ) A 13 

A 21 j-A 22 , -A 23 , -X M }\ ( A13 {-Ai 4 , -A15, -Ai 6 }\ f A 3 {0, 0, 0}\ 

A(-A 25 ,-A 26 ,-A 27 ) A 20 J U-Ai 7 ,-Ai8,-Ai 9 ) A 12 j 1(0,0,0) A 3 j 

Ux 2[ e 5 ] [E 2 [1]] == ZERO 

True 



defin[X 2 [e s ] , E 2 [l]] //Expand 

(0,0, oh ( {0,0,0} \ /- (o, 0, A 4 h 

(0,0,0) J 1(0,0,0) J 1(A 7 ,-A 6 ,0) A n J 

C (0,0, 0}\ I (0,0, 0)\ C {0,0,A 2 -y 8 h 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) J 

A„ (0, 0, -A 4 )\ ( (0, 0, y 8 -A 2 h ( ~h 9 (0,0,0)^ 



C A„ (0,0, -A 4 )\ / (0,0,y 8 -A 2 h ( 
A(-A 7 ,A 6 ,0) J 1(0,0,0) J 1 



(0, 0, 0) -X v 
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Elemento generico de Der(H3( Os, —), 



A[X 2 [e s ]] = 

A[X 2 [e s ] ] // . {A 2 -> y 8 , A 4 -> 0, A 6 -> 0, A 7 -> 0, An 0, X 19 -> 0} 



( 



I {0, 0, 0) 

I {0, 0, 0} 
C A 5 {0,0, -A 8 ) 

1{-A 9 ,-A 10 ,0) 

A21 {-A22 , -A23 , -A24 J 

{ _ A25, -A26, -A27) A20 



)( 



( (0,0,A 8 }\ ( A 20 {A 22 , A 23 , A 24 M 

I {A9 , A10 , 0} A5 J V (A 2 5 , A26 , A27 ) A 2 i } 

t r8 (0, 0,0}\ ( A12 {Ah, A15, X i6 }\ 

1(0,0,0) y 8 j l(A 17 ,A 18 ,0) A 13 j 

{-A 14 ,-A 15 ,-A 16 M I A 3 (0,0,0) 



A13 

j-A 17 ,-A 18 ,0) 



A12 



\\ ( a 3 {0,0, oh 
J 1(0,0,0) a 3 J 



Ue 3 [l] [X 2 [e s ] ] == ZERO 

True 



defin[E 3 [1] , X 2 [e s ] ] // Expand 



{0, 0, 0) 
0) 
{0, 0, 0) 
1 1 {0, 0, 0) 



{0, 0, 0) 
0) 
(0, 0, 0) 
{0, 0, 0) 

(0, 0, 0) 
{0, 0, 0) 



"( {0,0, Oh ( 
[{0,0,0} J [{0,0. 

i {0, 0, 0}w (0,0, oh 1 

1(0,0,0) J 1{0,0,0} J 1(0, 



(0,0,0)^ 
(0, 0, 0) 

(0, 0, 0} 
0, 0) 

\ (y 8 +A 3 {0,0, Oh 

J 1(0,0,0) y 8 + A 3 J, 



A[X 2 [e s ]] = A[X 2 [e 5 ]] //• {A 3 

I (0,0,0}\ 
I (0, 0, 0) J 



(0,0,0)' 
{(), 0, 0) 
A 5 (0, 0, -A 8 

(-A 9 ,-A 10 ,0) 
A21 (-A22, ~A 2 3, -A 2 4 

( - A25, -A26, -A27) A20 



(, 



-re } 



') ( 



(0, 0, A; 

(A 9 ,A 10 ,0) A 5 
( 7s (0, 0, 0) 
I (0, 0, 0) 7s 
A13 {-^14 . . —^-16 1 

(-A17, -Ai 8 , 0) A12 



A20 (A22 ■ A23 , A24 p 

(A25 , A26 , A 2 7 ) A21 , 

Al2 {A14 , A15 , Al6 } \ 

A [8 ,0) A 13 J 



f ' 

WA17, 



1(0,0 



-78 (0,0, Oh 



0) 



-78 



Ux 2 [e 5 ] [E 3 [1]] == ZERO 

True 



defin[X 2 [e s ] , E 3 [1] ] // Expand 



( (0, 0, Oh i (0, 0, -A 20 h ( (0, 0, 0}y 

1(0,0,0) j U-A23, A 22 ,0) -A 27 J 1(0,0,0) J 

-a 27 {o,o,A 20 h c (0,0, 0)\ f (0,0, Oh 

(A 23 ,-A 22 ,0) j 1(0,0,0) j 1(0,0,0) J 

I {0,0,0} A ( {0,0, Oh I {0,0,0} A 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) j, 
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A[X 2 [e s ] ] = A[X 2 [e 5 ] ] //. {A 20 -> 0, A 22 -> 0, A 23 -> 0, A 27 -> 0} 

{(), 0, A 8 ) 



I {0,0, 0}\ I 

1(0,0,0) j 1{A 9 ,A 10 , 
{0,0, -A 8 }^ 7 
1{0, ( 

3 

-A 18 ,0} 



U i 

J I {A25 , A 2( 



/■ A 5 {0,0, -A 8 n 

1{-A 9 ,-A 10 ,0) J 

A 2] {0, 0, -A 24 ) 
-A25 , -A 26 , 01 



{0, 0,A 24 1 
A 2 6 , 01 A21 
7s {0,0, Oh I A12 {A 14 ,A 15 ,A 16 

0,0) y 8 j 1{A 17 ,A 18 ,0) A13 

-^ia}\ r A13 {-A M , -Ai 5> -Ai 6 }\ j- -rs {0,0,0) 

J 1{-A 17 ,-A 18 ,0) A 12 J 1(0,0, 



,0) 



Ux 2[e5 ] [Xi [ei]] == ZERO 

True 



defin[X 2 [e s ] , Xi [ei] ] // Expand 

{0, 0, 0} 



{0, 0, 0) 
{0, 0, 0) 



o,on / 

J I {0, 0, 

1 {0,0, oh 1 

1(0,0,0) J 1(0,0, 
( (0, 0, 0)W 
A (0,0,0) j 1(0,0, 



) (, 



0} 



{0, 0, 0) • 




{0, 0, 0) 



) ) 



I (0, 0, M-fa 
1(0,0,0) 



(0,0, /3 8 -A 5 )\ 

J 



{0, 0, 0) 

{0, 0, 0) 
0, 0) 



f 1 

uo,< 



A[X 2 [e s ]] = A[X 2 [e 5 ]] //. {A 5 ->/3 8 } 

{0, 0, 0) 



( (o, 0, on 1 

1(0, 0,0} J 1(A 9 ,A, 

f Pi {0,0, -A 8 n ( 

1(-A 9 , -A 10 ,0) J 1 



P% (0,0, -A 8 ) 
A9, -Aio,0) 

hi (0,0, -A 24 ) 

U(-A25,-A 2 6,0) 



(0,0,A 8 )\ I (0,0,A 24 1 

Aio,0) yS 8 J 1(A 2 5,A 2 6,0) A21 



n 



rs (0, 0, 0) 

(0, 0, 0) y 8 
A13 {-A14, -Ai 5 , -Ai 6 ) 

{-A17 , -Ai8 , 0) A12 



1 f XU 

) 



{A14, A15 , Aig) \ 
01 A 13 J 

-78 {0,0,0} \ 
(0,0,0) -rs J 



Ux 2[e5 ] [Xi [e 3 ]] == ZERO 

True 



defin[X 2 [e s ] , Xi [e 3 ] ] // Expand 

(0, 0, 0} - 



"( {0, 0, 0)\ ( 
1(0,0,0} j 1(0,0, 

I {0, 0, 0}\ ( 
1(0,0,0) J 1(0,0, 

( (0, 0, 0)W 

A (0,0,0) J 1(0,0, 



(0, 0, 0} ' 



( {0,0, on \ 

1 (0, 0, 0} J 



f (0,0,yS4-A 9 i 
1(0, 0,1 



(0, 0,A 9 -j8 4 } 
0} 



) (,0, 



0) 
{0, 0, 0} 
0, 0) 



) 

) J 
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Elemento generico de Der(H3( Os, —), 



A[X 2 [e s ]] = A[X 2 [e 5 ]] //. {A 9 -»/3 4 } 



( {0,0, Oh 
{ {0, 0, 0) J 
( fa (0,0, -A 8 )\ 

U-y8 4 ,-Aio,0} I 
{ hi {0,0, -A 24 ) 

A{-A 25 ,-A 2 6,0) 



rs 10, o, 0) 



. 10, 0, 0) y 8 



{0,0, A 8 h / (0, 0, A 24 )\ < 

{A.Aio.O} fa J [{A 25 ,A 26 ,0| A 21 J 

{A14, Ai 5 , Ai, 



An 

{-A 17 , -A 18 ,0) 



( A [2 {A 14 , Ai 5 , Ai 6 ) \ 
i i(A 17 ,A 18 ,0) A 13 J 

A12 J I {0, 0, 0} 



!-A [4 . -A,,. -A 1( ,h i -y„ |0. 0,0} j 



-78 



Xl [e 8 ] [X 2 [e 5 ]] == ZERO 

True 



defin[Xi [e 8 ] , X 2 [e 5 ]] //Expand 



i o {o,o, oh ( o {o,o, oh j' o {o, o, o}\\ 

1(0,0,0) J UO,0,ySi -A 8 } J 1(0,0,0} J 

( o (0,0, oh ( o (0,0, oh j' o 

[{0,0, A 8 -Al J 1(0,0,0} J i{0,0 

1 f 

(0,0,0} J 1(0,0,0} 



(0, 0, 0} 
0} 



o (0,0, oh ( o (0,0, oh i o (0,0,0) 

J 1(0,0,0) 



)] 



A[X 2 [e s ]] = A[X 2 [e 5 ]] //. {A 8 -+0!) 

(0, 0, 0) 



/ i o (o, o, oh 

1(0,0,0) J U/34,Aio,0) 



78 



(0, o, p 
(0, 0, 0) 



f 

fa (0, 0, -fa)\ ( 

{-y8 4 ,-Aio,0} J 1(0,0,0) 7 8 

A 21 (0, 0, -A 24 )\ ( A 13 {-Aw, -Ais, -Ai 6 } 

(-A 25 ,-A 26 ,0) j i(-A 17 , -A 18 ,0) A 12 



ih ( (0,0,A 24 )\ 

J l(A 25 ,A 26 ,0) A 21 J 



"| ( A [2 (A 14 , Ai 5 , Ai 6 ) \ 

) l(A 17 ,A 18 ,0) Ai 3 J 

\ f - 78 {0,0, Oh 

j 1(0,0,0) -7 8 J 



T [Ei [1], Ei [1], X 2 [e s ]] == ZERO 

True 



U0,/? 3 +Ai ,0} 



Leib[Ei[l], Ei[l], X 2 [e s ]] //Expand 

{ {0, 0, 0} 
I {0, 0, 0) 

t o {o,o, oh t o {o,o,0) 

1(0, -/? 3 -Aio,0} J 1(0,0,0) 

ag+hi {0, 0, -ai -X2a}\ ( (0,0,0) 

a 4 -A 25 ,ff 3 -A 26 ,0) J 1(0,0,0) 



( 



(0, 0, 0) 
I 

) 



(0, 0, ai + A 24 h 

{a 4 + A 25 , A 26 - q-3 , 0) a 8 + A 2i , 

C o fo,o, oh 

1(0,0,0) o J 



( 

1(0, 0. 



o {o, o, oh 



0) o 
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A[X 2 [e s ]] = 

MX 2 [e 5 ] ] // . {Aio -» -/3 3 , A 2i -» -a 8 , A 24 -» -a x , A 25 -» -a 4 , A 26 -> a 3 } 

C {0,0, Oh t {0,0, A)) r {0,0,-a,h 

1(0,0,0) J l{A,-A.O} ySs J l{-a 4 ,a 3 ,0) -ar g J 

yS 8 {0, 0, -/3ih C y 8 {0,0, Oh C A 12 {A 14 , A 15 , A 16 }\ 

k {-j3 4 ,j3 3 ,0) j 1(0,0,0) y 8 j 1{A 17 ,A 18 ,0) A 13 J 

( -a 8 {0, 0, a,h j' A 13 {-A M , -A i5 , -A 16 }\ f -y 8 (0, 0, 0) \ 

. l{ar 4 ,-a 3 ,0) J i(-A l7 ,-A 18 ,0) A 12 J 1(0,0,0) -y 8 J 



T[X X [ei], X X [e 2 ], X 2 [e s ]] == ZERO 

True 

Leib [X X [ei ] , X X [e 2 ] , X 2 [e s ] ] // Expand 

o {o,o, oh i o {o,o,or 



i o (0, o, oh f o (0, o, Oh ( o 

i (0,0,0) J 1(0,0,0) J ({0,0, 

( (0, 0, 0)\ j' (0, 0, Oh 

1(0,0,0) J 1(0,0,0) J 

< o (o, o, oh / A 13 +p 6 (o, o, oh c o (o, o, oh 

1(0,0,0) j U-A17 -p 2 ,Pi -Ai 8 ,0} j 1(0,0,0) j 



(0, 0, 0} 

(Al7 +P2, Ai 8 -pi , 0) A i3 +p 6 



A[X 2 [e 5 ] ] = A[X 2 [e 5 ] ] // . {A13 -» -p 6 , A i7 -» -p 2 , A i8 -» Pi } 

(0, 0, 0)\ ( (0,0, Pi h f (0, 0, -o-il 



f o (0,0, oj\ i o (o,o,pih ( 

1(0,0,0) J {{/3 4 ,-/3 3 ,0} yS 8 J ll 



A {0,0, -^h ( y 8 (0,0, Oh j' A 12 {AM.^is.Aie}' 

{-&,#,, 0} J 1(0,0,0) y 8 J I {-ft, Pi, 0} -p 6 

-a 8 (0, 0, or )>j j' -p 6 {-A M , -A 15 , -A 16 }\ t -y 8 {0, 0, 0) \ 

(a 4 ,-a 3 ,0) J Up 2 ,-Pi,0) A 12 J 1(0,0,0) -y 8 J 



T[X X [ei] , X X [e s ] , X 2 [e s ]] == ZERO 

True 

Leib [X X [ei ] , X X [e s ] , X 2 [e s ] ] // Expand 

i o (o, o, oh ( o (o, o, oh ( o (o, o, oh 

( (0, 0, 0) J ( (0, 0, 0) J ( (0, 0, 0) J 

( o (o, o, oh ( o (o, o, oh j' o (0,0, oh 

1(0,0,0) J 1(0,0,0) J i{0 2 -Ai 5 ,Ai 4 -01,0} J 

(0 (0, 0, 0) W (0, 0, 0) \ j' {0, 0, 0) \ 

1(0,0,0) J l(A l5 -0 2 ,0, -A 14 ,0) J 1(0,0,0) j 



Elemento generico de Der(H3( Os, —), 



{0,0, Oh I {0, 0, 0i 

(0,0,0) J I {A, -A.O} & 



A[X 2 [e s ]] = A[X 2 [e 5 ]] //. {A 14 -»0i, Ais 

f ( 

, ({«4, 



*2> 



n ( 

{0, 0, -0i}\ 
o J 



S 4 ,jS 3 ,0} 
-or 8 {0, 0, a, } 
-a 3 ,0} 



1 f 

08 J U-a 4 ,a 3 ,0} -a 8 

7s {0,0,0} \ I X n {0, , 2 , A 16 

{0,0,0} y 8 J I {-02, Pi, 0} -p 6 
\ f -P6 {-01,-02,-Aieh C -7s {0,0,0} 

J UP2,-P1, 



0} 



{0,0, -ai}\\ 
-as J 

) 

h c -rs {0,0, Oh 
J 1(0,0,0} -78 J , 



T[X X [ei] , X X [e 6 ], X 2 [e s ]] == ZERO 

True 



Leib [Xi [ei ] , X x [e 6 ] , X 2 [e s ] ] // Expand 






{0, 0, 0} 


{0, 0, 0} 








{0, 0, 0} 


{0, 0, 0} 








{0, 0, 0} 


{0, 0, 0} 






{0, 0, 0} \ I {0, 0, 0} A ' 

j 1(0,0,0} j 

(o,o, oh i o 

J UAi2+^i,0, 



(0, 0, 0} 

{-X l2 -ft, 0,0} 



) 



{0, 0, 0} 
0, 0} 
(0, 0, 0} 

0} 
{0, 0, 0} 
(0, 0, 0} 



) 

) J 



A[X 2 [e s ] ] = A[X 2 [e 5 ] ] //. {A 12 -> -ft} 



I {0, 0, 0} 
I (0, 0, 0} 
08 {0, o. a 

04,03,0} 

a% (0, 0, a\ } 
-a 3 ,0} 



( {«4, 



0, 0} \ ( 

J I {04,-/ 

J 1(0, 

1 f " P6 

I \{P2,-P\, 



'] f 

) ( 



{0, 0, -ffj 

ff 3 ,0} -« 8 
-01 {01,02,^16} 



{0, 0, 0i 

3,0} 8 

78 (0, 0, 0} 

0,0} 78 I U-P2,Pi,0} -p 6 

{-0i, -02,-Aieh { -78 {0,0,0} 

0} -0i J 1(0,0,0} -78 



) J 



T[Xi [ei], X X [e 8 ], X 2 [e s ]] ==X 2 [e 2 ] 

True 



A[X 2 [e 2 ]] -Leib[Xi[ei], Xi[e 8 ], X 2 [e 5 ]] //Expand 

i o (o, o, oh i o (o, o, oh i o {o, o, oh 

[{0,0,0} J 1(0,0,0} J 1(0,0,0} J 

(-o jo, o, oh ( o {o, o, oh c o (o, o, 0} 

1(0,0,0} J 1(0,0,0} J [{0, 0,0} f-62 -171 -Ai 6 

{0, 0, 0} 
1 1 (0, 0, 0} 



) 

U,U}Wf-e 2 -th -X u {0,0, Oh ( {0,0, Oh 
oil {0,0,0} J 1(0,0,0} J 
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A[X 2 [e s ]] = A[X 2 [e 5 ]] //. {A 16 ->f-e 2 -m) 

I {0, 0, Oh < {0, 0, ( (0, 0, -aih 

1(0,0,0) J I{y3 4 ,-j3 3 ,0} yS 8 J {{-a 4 ,a 3 ,0} -a, J 

f /? 8 {0,0, -^h < y 8 {0,0, Oh C {^1,02,^-62 -^i! 

U-jS 4 ,jS 3 ,0} J 1(0,0,0) y 8 J U-P2,Pi,0) -p 6 

( -or 8 (0,0,aih j' -p 6 {-0i, -02, -<f + e 2 +?7ih ( "7s (0, 0, 0)^ 

, {{04,-03,0} J l{p 2 ,-pi,0) -0i J ll 



Variables [A [X 2 [e 5 ] ] ] 

{£, a, , a 3 , a 4 , org , ySi , A , A , A , 78 , £2 , ??i , Pi , P2 , P6 , 01 , 02 , 01 ! 

X 2 [e 6 ] 

A[X 2 [e 6 ] ] = generic; 
U El[ i] [X 2 [e 6 ]] == ZERO 

True 



(defin[Ei [1] , X 2 [e 6 ] ] // Expand) 

<( Ai {0, 0, 0)\ ( (0, 0, 0)W {0,0, Oh 

( {0, 0, 0) Ai j { {0, 0, 0) J { {0, 0, 0) j 

t o {o, o, o)w o {o, o, oh t o {o, o, oh 

({0,0,0) j ({0, 0, 0) J 1(0,0,0) J 

( (0, 0, 0)W {0, 0, 0)\ ( {0,0, Oh 

A (0,0,0) J ({0, 0, 0) j 1(0,0,0) ), 



A[X 2 [e 6 ] ] = A[X 2 [e 6 ] ] //. {A x -> 0} 



( {0,0, Oh ( A 4 {A 6 ,A 7 ,A 8 )^| ( A 20 {A 22 , A 23 , A 24 ) ^ 

1(0,0,0) J 1{A 9 ,A 10 ,A„) A 5 j 1{A 25 ,A 26 , A 27 ) A 21 

( A 5 {-Ae, -A 7 , -A 8 }\ ( A 2 {0,0, 0M ( A 12 {A K , A 15 , A 16 (^ 

1{-A 9 ,-A 10 ,-A„) A 4 J 1(0,0,01 A 2 J l(Aiv,A 18 , A 19 ) A 13 

A 21 {-A 22 , -A 23 , -A 24 h ( Ai 3 {-Ai 4 , -Ai 5 , -Ai 6 }\ f A 3 {0, 0, 0}\ 

A(-A 25 ,-A 26 ,-A 27 ) A 20 J U-Ai7,-Ai 8 ,-Ai 9 ) A 12 J 1(0,0,0) A 3 J 



Ux 2 [e 6 ] [E 2 [1]] == ZERO 

True 

defin[X 2 [e 6 ] , E 2 [l]] //Expand 

( {0,0, Oh ( {0,0, Oh ( A 6 (0, -A,,,Aio)p 

I (0, 0, 0) J { {0, 0, 0) J ( (A 5 , 0, 0) J 

( o {o,o, oh i' o (o,o, oh t o (o, o, oh 

1(0,0,0) J 1(0,0,0) J UA 2 -73,0,0) j 

{0,An,-Aioh c (0,0, Oh c -Ai 4 (0,0, 0}\ 

A {-As. 0,0} A 6 J ({7 3 -A 2 ,0,0) J 1(0,0,0) -A, 4 J , 
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Elemento generico de Der(H3( Os, —), 



A[X 2 [e 6 ]] = 

A[X 2 [e 6 ]] //. {A 2 -> y 3 , A s -> 0, A 6 -> 0, Ai -> 0, An -> 0, A i4 -> 0} 



( 



{0, 0, 0) 
{0, 0, 0} 

{0, -A 7 ,-A 8 } 
0} A 4 
A21 {-A22 , -A23 , -A24 1 

{-A25, -A26, -A27) A20 



f 

U-A 9 ,0,l 



( A 4 {0,A 7 ,A 8 ) 
UAs.O, 



)( 



0} 

{0, 0, 0} 
0} 73 
A13 {0, -A 15 , -A 16 ) 



I 73 

UO, 0, 



) ( 

] ( A " 

I \ {A17 , Aig , Ai. 



{ _ Ai7 , -Aig , -A19 1 



A12 



A20 {A22 , A23 , A 24 p 

{A25 , A26 , A27 ) A21 , 

A12 {0,Ai 5 ,Ai 6 }\ 
19) A 13 J 

I A 3 (0,0,0}\ 
J 1(0,0,0) A 3 J 



Ue 3 [l] [X 2 [e 6 ] ] == ZERO 

True 



defin[E 3 [1] , X 2 [e 6 ] ] // Expand 



{0, 0, 0) 
0) 
{0, 0, 0) 
1 1 {0, 0, 0) 



{0, 0, 0} 
0) 
(0, 0, 0) 
{0, 0, 0) 

(0, 0, 0) 
{0, 0, 0) 



(I (0, 0, 0}W 
WO, 0,0) J wo, 0. 

( (o, 0, 0}w jo, 0, o)\ ( 

1(0,0,0) J 1(0, 0,0) J 1(0,0 



(0,0,0)^ 
{0, 0, 0) 

{0, 0, 0: 
0) 
\ (y 3 +A 3 (0,0, Oh 
J 1(0,0,0) y 3 + A 3 J, 



A[X 2 [e 6 ]] = A[X 2 [e 6 ]] //. {A 3 

1 (0, 0, 0}\ 



I {0, -A 7 ,-A 8 ) 
U-Ao.0, 0} A 4 

A21 { _ A 2 2, -A23, -A 24 

i _ A25, -A26, -A27) A20 



-r 3 } 

(, 



) ( 



A 4 {0, A 7 , A 8 ) 
(A 9 , 0, 0) 
73 {0, 0, 0) 
{0, 0, 0) 73 
A13 (0, -A 15 , -A 16 

{ _ Ai7, -Ai 8 , -A19) A12 



A20 {A22 , A23 , A2 4 ) N 

{A25 , A26 , A27 ) A21 , 

A 12 {0, Ai5,Ai 6 }\ 

^ (An, Ai 8 , A 19 ) A 13 ) 



1(0,0 



-73 (0,0, Oh 



0) 



-73 



Ux 2 [e 6 ] [E 3 [1]] == ZERO 

True 



defin[X 2 [e 6 ] , E 3 [1] ] // Expand 

1 {0, 0, 0) 



r (0,0, on r -X22 10, a 27 ,-a 26 )\ ( (0, 0, 0}y 

1(0,0,0) J l(-A 2l ,0, 0) J ((0, 0,0) J 

( (0, -A 27 , X 26 }\ ( {0,0,0} \ ( (0,0, Oh 

i(A 21 ,0,0) -A 22 J 1(0,0,0) J 1(0,0,0) J 

( (0,0, Oh ( (0, 0, 0)\ ( (0,0, Oh 

1(0,0,0) J 1(0,0,0) J 1(0,0,0) ), 
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A[X 2 [e 6 ] ] = A[X 2 [eg] ] //. {A 2 i -> 0, A 22 -> 0, A 26 -> 0, A 27 -> 0} 

A4 {0, A 7 , Ag } "\ I A20 {0, A23 , A24 1 



I {0, 0, 0}\ 
1(0, 0,0} j 
( {0, -A 7 ,-A 8 }\ 
I {-As, 0,0} A 4 j 

{0, -A 23 ,-A 24 h A 
A{-A 25 ,0,0} A 20 J ({-A 17l - 



( A 4 {0, A 7 ,A 8 h A 20 {0, A 23 ,A 24 h 

1{A 9 ,0,0} j 1{A 25 ,0,0} I 

0, 0} 

{0, -A15, -A 16 }^ -73 

0} 



C 73 {0,0, Oh t Ai 2 {0, Ai 5 ,A 16 ] 

1(0,0,0} 73 J UA,7,A, S , A, Q } A, 



A13 
Au > 



73 

{0, -Ai 5 ,-Ai 6 } 
-A19} A 12 



. Ul7 , Al8, A19 } A13 

C -73 {0,0,0} 
1(0,0, 



"73 



Xl [e 2 ] [X 2 [eg]] == ZERO 

True 



defin[Xi [e 2 ] , X 2 [e 6 ] ] // Expand 



{0, 0, 0} 
{0, 0, 0} 







{0, 0, 0} 
(0, 0, 0} A 4 - /? 3 ) { {0, 0, 0} 







(U-fo lo,o, oh c 

({0,0,0} J ({0,0, 

( {0, 0, 0}W 

A {0,0,0} j ({0,0, 



{0, 0, 0} 
0} 

{0, 0, 0} 
0} 



{0, 0, 0} 


{0, 0, 0} 
{0, 0, 0} 
{0, 0, 0} 
0, 0} 



) 



A[X 2 [e 6 ]] = A[X 2 [e 6 ]] //. {A 4 ->/3 3 } 



' I {0, 0, 0}\ 
( {0, 0, 0} J 
I {0, -A 7 ,-A 8 h 
({-A 9 ,0,0} j 
{0, -A 23 ,-A 24 ! 

U{-A 25 ,0,0} A 20 



I fa {0,A 7 ,A 8 }\ 
({A 9 ,0,0} J 



{0, 0, 0} 73 
13 {0, 

{ _ Ai 7 , _ A 18 , -A19} A12 



( A 20 {0, A 23 , A 24 
({A 25 ,0. 



) ( 



0} 

{An, Ai 8 , A19} 



A12 {0, A 15 ,A 16 }\ 



3,A 2 4h S 

I 

-15 > 
A,3 



A 13 {0, -A 15 ,-A 16 }^ ( -73 {0,0,0} 

{0, 0, 0} -73 



) 



Ux 2 [e 6 ] [Xi [e 3 ]] == ZERO 

True 



defin[X 2 [e 6 ] , Xi [e 3 ] ] // Expand 

{0, 0, 0} 



1 jo, 0, o}\ t {o, 0, oh ( 

({0,0,0} j ({0,0,0} J ( 

( {0, 0, 0}\ ( {0, 
({0,0,0} j ({0,0,0} 

( {0, 0, 0}W {0,0,0} 
A {0,0,0} J [{A, -ft, 0,0} 



) ( 



{0, 0, 0} 
{0, 0, 0} 

{0, 0, 0} 

{ft-A 9 ,0, 0} 
{0, 0, 0} 
0, 0} 



) (,0, 



) ) 



) J 



242 



Elemento generico de Der(H3( Os, —), 



A[X 2 [e 6 ]] = A[X 2 [e 6 ]] //. {A 9 ->/3 2 } 



f ° 

f ° 

U{-A 25 ,0, 



{ {0,0, Oh C /? 3 (0, A 7 ,A 8 }\ 

1(0,0,0) J 1 {/? 2) 0,0} J 

r 3 10, o, o) 



(0, -A 7 , -A 8 
0) yS 3 

{0, -A 23 , -A 2 4, 
0) A 20 



) (, 



) 



{0, 0, 0) y 3 
A 13 (0, -A 15 ,-A 16 ) 

(-An, -Al8, -A19) Al 2 



A 2 o (0, A 2 3 , A 2 4 ) \ s 
(A 25 ,0,0) J 

A 12 {0,A 15 ,A 16 }\ 

{A17, Ais, A19} A13 ) 

\ t -73 {0,0,0} \ 

j 1(0,0,0} -73 J 



Xl [e 8 ] [«2 [e S ]] == ZERO 

True 



defin[Xi [e 8 ] , X 2 [e 6 ]] //Expand 



( (o, 0, o}\ / jo, 0, oh f (o, 0, o}\\ 

{{0,0,0} J I {0,0, £7 -A 8 } J 1(0,0,0} J 

( {0,0,0} A ( {0, 0, 0}\ /" 

1(0,0, A 8 -/3 7 ) J 1(0,0,0} J 1(0,0 

(0,0,0} J 1(0,0,0} 



(0, 0, 0} 
0} 



(0,0, oh ( (0,0, oh ( (0,0,0) 

J 1(0,0,0) 



)] 



A[X 2 [e 6 ]] = A[X 2 [e 6 ]] //. {X s ->/3 7 } 

(0, 0, 0} 



( f 

I (0, 0. 

f 
f 

U-A 25 , 



(0, -A 7 , -fo 

0) ft 

(0, -A23, -A 2 4) 
0, 0} A 20 



) ( 

) (,0, 



v 24 ) j 



(0,A 7 ,y3 7 h f A 20 (0,A 23 ,A 

J l(A 25 ,0,0) 

73 {0,0,0} A / A 12 (0,A 15 ,A 16 )\ 

0,0} 73 J I {A 17 , A 18 ,A 19 ) A13 J 

A13 (0, -A15, -A 16 }\ / -73 {0,0, Oh 

j-A 17 ,-A 18 ,-A 19 ) A 12 J 1(0,0,0} -73 j 



T[Ei [1], Ei [1], X 2 [e 6 ]] == ZERO 

True 



Leib[Ei[l], Ei[l], X 2 [e 6 ]] //Expand 

u 

{0, 0, 0) 



I {0, 0, 0) 

I {0, 0, 0} 

C {0, — jS s - A 7 , 0} 
I (0, 0, 0} 



{0, /? 8 + A 7 , 0} w a 3 + A 20 {0, A 23 - ag , a 7 + A 24 ) 
0,0} J l{a 2 +A 25 ,0, 0} 



-or 2 -A 25 ,0, 0) 



\ f {0,0, OM 

J 1(0,0,0) J 

u. h,u, ) ({0,o.o! 



C {0,0, Oh 

1(0,0,0) J 

C {0,0, oh 

1(0,0,0) J 
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A[X 2 [e 6 ]] = 

A[X 2 [e 6 ] ] // . {A 7 -> -£ 8 , A 20 -> -a 3 , A 23 -> a 8 , A 24 -> -« 7 , A 25 -> -a 2 } 



! {0, 0, 0) \ 
I {0, 0, 0) J 

{0,ft,-ft 

(-ft, 0,0} ft 
f {0, -a 8 ,a 7 ) 

, [[02. 0, 



■ 0) 



-a 3 



/ V { _ Al 7 , -^18, 



ft {0, -ft,ft 

{ft, 0,0) 
J 73 10. 0.0) 



. 10, 0, 0) 73 



-Ai 9 } 



) ( A " 

V (An , Al 8 , 

) (,»; 



{0, -Ai 5 ,-A 16 } 



-a 3 (0, ar 8 ,-a 7 h 
{-a 2 ,0, 0} J 

{0, Ai 5 ,Ai 6 } 
A19) An 

n 10, 0, 0) 



"73 



) J 



T[X X [ei], X X [e 3 ], X 2 [e 6 ]] == ZERO 

True 



Leib [Xi [ei ] , Xi [e 3 ] , X 2 [e 6 ] ] // Expand 

I {0,0, Oh I {0,0, Oh 

1(0,0,0} J 1(0,0,0} J 



(0, 0, 0} A 
(0, 0, 0} J 

(0,0, Oh 

) UO, -5 6 -Ai 6 ,A 15 -5-j} , 

(0,0, Oh ( (0,0,0}' 

A15} 



1 (0, 0, oh r (o,o,o} a 

1(0,0,0} J 1(0,0,0} J 

1 {o,o, 0}w (0, 0, oh /- (o, 0, oh 

1(0,0,0} J l(0,<5 6 + A 16 ,c5 7 -A15} J 1(0,0,0} J 



A[X 2 [e 6 ]] = A[X 2 [e 6 ]] //. {A 15 -><5 7 , A 16 -> -S 6 } 

{0,0, Oh ( # 



( (0,0, oh r / 

1(0,0,0} J l(ft, 



f 

U-ft,o,i 



0} 

Aa 2 ,0, 0} 



(0,ft, -ft} 
ft 



) (,0, 



{0, -ft,fth / -a 3 {0, a 8 ,-ar 7 h 

0,0} J U-a 2 ,0,0} J 

73 (0,0, Oh I A 12 (0,<5 7 ,-<5 6 ) 

0,0} 73 J Uai 7 ,a 18 ,a 19 } 



A|3 



(0, -a 8 ,a 7 h ( A 13 (0, -cS 7 , <5 6 }A / -73 (0, 0, Oh 

J U-Ai 7 ,-A 18 ,-A 19 } A 12 J 1(0,0,0} -73 J 



-a 3 



T[X X [ei] , X X [e 6 ] , X 2 [e 6 ]] == ZERO 

True 



Leib [X X [ei ] , Xx [e 6 ] , X 2 [e 6 ] ] // Expand 

1 (o, 0, o\\ 1 (o, 0, oh f (o, 0, o}\ 1 

1(0,0,0} J 1(0,0,0} J 1(0,0,0} J 

C (o, 0, oh c (o, 0, oh c (0,0, oh 

((0,0,0} j 1(0,0,0} j 1(<5 2 + A12, 0, 0} j 



(0, 0, 0} 

{6 2 +A I2 , 0, 0} 

( (0, 0, 0}W (0,0, Oh ( (0,0, Oh 

((0,0,0} J {{-5 2 -Ai2,0, 0} J 1(0,0,0} J 
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Elemento generico de Der(H3( Os, —), 



A[X 2 [e 6 ] ] = A[X 2 [e 6 ] ] //. {A 12 -> -<5 2 } 

{(), 0, 0} 



C (0,0, Oh C ft (0, -ft.fth { 

1(0,0,0) J lift, 0,0) o j 1 

C {0, ft, -ftp 
1 {-ft, 0,0) ft 



-o 3 {0,ar g ,-a 7 }> 
(-02,0,0) , 

\ I 73 (0,0, 0}\ j -5 2 (0, <5 7 ,-06! 

j 1(0,0,0) y 3 J 1(A 17 , A 18 , A 19 } A 13 

( (0, -o 8 ,o 7 h /■ Ai 3 (0, -5 7) 5 6 }\ -73 (0,0,0)" 

l U«2,0,0} -a 3 J 1(-A 17 ,-A 18 ,-A 19 ) -5 2 J 1(0,0, 



,0) 



"73 



T[Xi [e 2 ] , Xi [e 8 ] , X 2 [e 6 ]] 

True 



X 2 [e 4 ] 



A[X 2 [e 4 ] ] + Leib[Xi [e 2 ] , X x [e 8 ] , X 2 [e 6 ] ] // Expand 





(0, 0, 0) 



(0, 0, 0) 



o, oh 
o J 



i o (0,0, oh 

1 (0, 0, 0) o J 

t (0, 0, 0)W 

A (0,0,0) j [{0,0, 



f 

I (0, 0, 

f 

I (0, 0, 

(-61 



(0, 0, 0) 



(0, 0, 0) 



0) 



) 

) (, 
) 



6 t +r]i + A 17 , 0) 




( (0, 0, 0) \ 
1 (0, 0, 0) J 
(e, +A.i 8 , f + 5i -r\i - An, 


C (0, 0, 0) \ 
{ {0, 0, 0) J 



A[X 2 [e 6 ] ] = A[X 2 [e 6 ] ] //. {A 18 -> -ei, A 17 -> f + <5i - ?7i } 

ft (0, -ft, ft} 



(- (0,0,0) A 
I (0, 0, 0) J 



(0, 0, 0) 
. {0, 0, 0) 
{0,ft,-ft} 
{-ft, 0,0} ft 

{0, -or 8 ,a 7 } 
> 2 ,0,0) -or 3 



Uft,o 

( 



0) 

y 3 (0, o, 0) 



{0, 0, 0) y 3 

1 f An 

) U-?-5i +?7i, ei, -A 19 ) 



\ / -ff 3 {0,a s ,-a 7 }\ 

J U-oa,0,0} J 

\ ( -S 2 {0,5-,,- 

I \{i; + Si -tii, -ei, Ai 9 ) A.13 
• S^SeU C -y 3 (0,0, Oh 

-ft J I {0,0,0} -73 J 



T[Xi [e s ] , X X [e 8 ], X 2 [e 6 ]] 

True 



-X 2 [e s ] 



A[X 2 [e 6 ] ] +Leib[X! [e s ] , Xj. [e 8 ] , X 2 [e 6 ] ] // Expand 

I (0, 0, Oh ( (0, 0, Oh I (0, 0, 0} A 

1(0,0,0) j 1(0,0,0) j 1(0,0,0) J 

i o jo, o, oh /- o {o, o, o)\ c o (0,0,0) 

1(0,0,0) J 1(0,0,0) J 1(0, 0, Ai9 +0i) Ai3-e 4 

I {0, 0, Oh C Ai3-e 4 {0,0,0} A I {0,0,0} A 
A {0,0,0} J 1(0,0, -Ai 9 -0i ) J 1(0,0,0) J , 
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A[X 2 [e 6 ] ] = A[X 2 [e 6 ] ] //. {A 19 -> -0!, A 13 -> e 4 } 

' ( o (o,o,oh f fa {o,-pg,fr}\ ■ 

1(0,0,0) J U/32,0,Oj ) 1 

I {-A, 0,0} /3 3 J uo,o,o) y 3 J 



{0,0,0^ C j8 3 (0,-/3 8 ,/3 7 h C -a 3 {0,a 8 ,-a 7 h 

a 2 ,0,0) J 
-tf 2 (0, <J 7 , -5 6 )^ 

+ -rji, -£i, -0i I e 4 ; 
C (0, -a 8 ,a 7 h / e 4 {0, , (5 6 } \ / -y 3 {0, 0, Oh 

. Uo-2, 0, 0} -or 3 I U-f-tfi +1/1,61,^1} -<5 2 J 1(0,0,0) -r 3 J 

Variables [A [X 2 [e 6 ] ] ] 

{£ «2, ff3, a 7 , org, j8 2 , y03, jS 7 , j8 8 , 73, 8\ , <5 2 , £7 , ei , £4, m . 0i 1 



X 2 [e 7 ] 

A [X 2 [e 7 ] ] = generic; 
U El[ i] [X 2 [e 7 ]] == ZERO 

True 



(defin[Ei [1] , X 2 [e 7 ] ] // Expand) 

'( Ai {0,0,0} A < (0, 0, 0)W {0,0, Oh 

{ (0, 0, 0) Ai j 1 (0, 0, 0) j [ (0, 0, 0) j 

< (o, 0, o)w {0,0, oh { (o, o, oh 

( (0,0,0) j 1(0, 0,0) J 1(0,0,0) J 

( {0,0, 0}w jo, 0, oh t {0,0, oh 

A (0,0,0) J WO, 0,0) j 1(0,0,0) ), 



A[X 2 [e 7 ] ] = A[X 2 [e 7 ] ] //. {Ai -> 0} 



< {0,0, 0}\ j- A 4 {A 6 ,A 7 ,A 8 M A 20 {A 22 , A 23 , A 24 ) ^ 

1(0,0,0) J 1{A 9 ,A 10 ,A„) A 5 j 1{A 25 ,A 26 , A 27 ) A 21 

( A 5 {-Ae, -A 7 , -A 8 }\ j- A 2 {0, 0, 0}\ ( A 12 {A K , A 15 , A 16 (^ 

lj-A 9 ,-A 10 ,-A„) A 4 J 1(0,0,01 A 2 J UAi 7 ,A 18 ,A 19 } A 13 

A21 (-A22, -A 23 , -X M }\ t A13 (-A 14 , -A15, -Ai 6 }\ /" A 3 {0,0, Oh 

A{-A25,-A 26 ,-A27) A 20 J U-Ai 7 ,-Ai8,-Ai 9 ) A12 J 1(0,0,0) A 3 J 



Ux 2 [e 7 ] [E 2 [1]] == ZERO 

True 



defin[X 2 [e 7 ] , E 2 [l]] //Expand 

(0,0, Oh ( {0,0, Oh I A 7 {An,0, -A 9 }^ 

(0,0,0) J 1(0,0,0) J 1(0, A 5 , 0) 

i {0,0, oh r (o, 0, oh r (o, 0, oh 

1(0,0,0) J 1(0,0,0) J UO, A 2 -74,0) J 

j {-A„,0,A 9 h t {0,0, Oh c -A, 5 (0,0, Oh 

A{0, -A 5 ,0) A 7 J l(0,r 4 -A 2 ,0) J 1(0,0,0) -Au J , 
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Elemento generico de Der(H3( Os, —), 



A[X 2 [e 7 ] ] = 

A[X 2 [e 7 ] ] // . {A 2 -> y 4 , A s -> 0, A 7 -> 0, A 9 0, An -> 0, A i5 -> 0} 



( 



{0, 0, 0) 
{0, 0, 0} 

{-A 6 ,0, -A 8 ) 
0} A4 
A21 {-A22 , -A23 , -A24 1 

{ _ A25, -A26, -A27) A20 



f 

1(0, -A 10 ,i 



)( 



( A 4 {Ae,,0,A 8 )\ f 

UO,Aio,0) j { 

L 

A13 



{ _ Ai7 , -Al8 , -A19 ) 



^20 1^-22 , ^-23 . ^24 1 N 

{A25 , A26 , A27 ) A21 , 

A12 {Ai4,0, Ai 6 }\ 

An j 

A 14 ,0, -A 16 }\ t A 3 (0,0,0}\ 

A12 j I {0,0,0) A 3 j 



74 {0, 0, 0} 

0,0) y 4 J UAi 7 , Ai 8 ,A l9 ) 



') (, 



Ue 3 [l] [X 2 [e 7 ] ] == ZERO 

True 



defin[E 3 [1] , X 2 [e 7 ] ] // Expand 



{0, 0, 0) 
0) 
{0, 0, 0) 
1 1 {0, 0, 0) 



{0, 0, 0) 
0) 
{0, 0, 0) 
{0, 0, 0) 

{0, 0, 0) 
{0, 0, 0) 



"( {0,0, 0}W 

WO, 0,0) J wo, 0. 

i o {0, o, 0}w o {o, o, o)\ i o 

WO, 0,0} J 1(0, 0,0} J 1(0,0 



(0,0,0}^ 
(0, 0, 0) 

(0, 0, 0} 
0} 
\ (74+h {0,0, Oh 
J 1(0,0,0} y 4 +h I, 



A[X 2 [e 7 ]] = A[X 2 [e 7 ]] //. {A 3 

j (0, 0, 0}\ 



( {-Ae.O.-As}' 
1(0, -A 10 ,0) A 4 

A 2 i j-A 2 2, -A 2 3, -A 2 4 

{-A25, -A26, -A27) A20 



-Y4 } 

C A 4 (A 6 ,0,A 8 ) 
UO,Aio,0} 

( 74 (0, 0, 0) 



) ( 



V (0, 0, 0) 74 
A13 {-A14, 0, -Ai 6 ) 



{ _ Ai7 , -Au , -A19 ) 



A12 



A20 {A22 , A23 , A2 4 ) N 

{A25 , A26 , A27 ) A21 , 

A12 (Ai4,0, A 16 M 

v {^17 , Aig , A 19 } A13 J 



1 -y 

1(0,0 



-74 {0,0, Oh 



0} 



-74 



Ox 2 [e v ] [E 3 [1]] == ZERO 

True 



defin[X 2 [e 7 ] , E 3 [1] ] // Expand 

(0, 0, 0} 



0,0} \ t -A 23 {-A 27 ,0,A 25 h f (0,0, 0}V 

J ((0, -A 21 ,0) J 1(0, 0,0} J 

\ ( (0, 0, 0}\ ( {0, 0, Oh 

j 1(0,0,0} J 1(0,0,0) J 

( (0,0, Oh I (0, 0, 0}\ ( (0,0, Oh 

1(0,0,0) J 1(0,0,0} J 1(0,0,0) j, 





(0, 0, 0} 
{A 27 ,0, -A 25 ] 
(0, A 21 , 0) -A 23 
(0, 0, 0} ' 
0, 0) 
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A[X 2 [e 7 ] ] = A[X 2 [e 7 ] ] //. {A 2 i -> 0, A 23 -> 0, A 25 -> 0, A 27 -» 0} 

C {0,0, 0}\ < A 4 (A 6 ,0,A 8 M t A 20 (A 22 ,0,A 24 M 

1(0,0,0) j UO,Aio,0} j 1{0,A 26 ,0) J 

C {-A6,0, -A 8 }\ 74 {0,0, Oh Ai 2 {Ai4,0,A 16 } 

Uo,-A 10 ,0} A 4 j 1(0,0,0) 74 j I W17 , A 18 , A 19 } A 13 



I WO, -A 26 , 



j-A 22 , 0, -A24) 
0) A 20 



J U-A17,- 



A13 i _ Ai4, 0, -Aie) 

Ais > _ Al9 ) Ai 2 



f -74 {0,0,0)^| 
1(0,0,0} 



-74 



U Xl [e 2 ] [X 2 [e 7 ] ] == ZERO 

True 



defin[Xi [e 2 ] , X 2 [e 7 ] ] // Expand 



{0, 0, 0} 
{0, 0, 0} 







{0, 0, 0} 
{0, 0, 0} A 4 - /? 4 ) { {0, 0, 0} 







fX*-fa {0,0, 0}\ C 

({0,0,0} J ({0,0, 

t {0, 0, 0}W 

A {0,0,0} j ({0,0, 



{0, 0, 0) 
0} 

{0, 0, 0} 
0} 



{0, 0, 0} 


{0, 0, 0} 
{0, 0, 0} 
{0, 0, 0} 
0, 0} 



) 



A[X 2 [e 7 ]] = A[X 2 [e 7 ]] //• {A 4 -»/B 4 } 

{0,0, on ( a 



I {0, 0, 0}\ 
{ (0, 0, 0} J 

f 
f 

lUO, -A 26 ,l 



-An , -Aig , -A19 } 



14 (A 6 ,0, A 8 M f A 20 (A 22 ,0, A 24 }\ 

{O.Aio.O} j ((0,A 26 ,0) J 

(-A 6 ,0, -A 8 }\ I y 4 {0,0, Oh A 12 (Ai4,0,A 16 }^| 

0} /3 4 J ((0,0,0} 74 J ({Ai7,Ai 8 ,A 19 } A 13 J 

(-A 22 ,0, -A 24 M < A13 {-Ai4,0, -A 16 }^ ( -74 {0,0, Oh 
)} A 20 J ({-A 



U Xl [e 4 ] [X 2 [e 7 ] ] == ZERO 

True 



defin[Xi [e 4 ] , X 2 [e 7 ] ] // Expand 



t {0, 0, 0} N t 
({0,0,0} J ({0,0 



{0,/3 2 -Aio.O} 
0} 



{0, 0, 0} 



{0, 0, 0) 



0, 0}V 
j 



( {0, A l0 -fc,0}\ I {0,0, 0}\ t {0,0, 0}\ 
( {0, 0, 0} J ( {0, 0, 0} J ( {0, 0, 0} J 





(0 {0, 0, 0} \ I {0, 0, 0} \ /" {0, 0, 0} \ 

({0,0,0} J ({0,0,0} j ({0,0,0} j, 



A[X 2 [e 7 ]] = A[X 2 [e 7 ]] //• {A 10 ->)3 2 } 

j A (A 6 ,0,A 8 



f f ° 

I (0, 0. 

f 

V (0, -j8 
(1(0, -A 26 , 



(0, 0, 0} 
0} 

(-A 6 ,0, -A 8 } 
tf:,0} ft 

A 22 , 0, -A 2 4 } 
A 2 o 



{O.ft.O} 
74 (0, 0, 0} 



(0, 0, 0} 74 



)( 



( 

A 

(-An , -Ai 8 , -A19 } 



) ( 
) ( 



A 2 o (A 22 , 0, A 2 4 } ^ 
(0,A 26 ,0) J 

A12 {A14 , 0, A 16 } 

{A17 , Aig, A19 } A13 



Ai 2 



h ( -74 

J 1(0,0, 



0} 



-74 



Elemento generico de Der(H3( Os, —), 



Xl [e 8 ] [X 2 [•?]] == ZERO 

True 



defin[Xi [e 8 ] , X 2 [e 7 ] ] // Expand 



{0, 0, 0} 



' ( o jo,o, oh /- o 

1(0,0,0) J 1(0,0, -ft -A 8 ) 



i o {o,o, on c o {o,o, on 

{{0,0,/3 6 +X g } J 1(0,0,0) J 

f o jo, o, o)\ i o {o, o, oh 

, 1(0,0,0) j 1(0,0,0) J 



o (o, o, o)y 

(0, 0, 0) J 

( (0,0, 0}\ 

1(0,0,0) J 

C {0,0, Oh 

1(0,0,0) ), 



A[X 2 [e 7 ]] =A[X 2 [e 7 ]] //• {A 8 ->-/3 6 } 

(0, 0, 0) 



' ( o {o,o, on / 

1(0,0,0) J l{0, 
C {-A 6 ,0,/3 6 )\ 
{ {0,-02,0} 04 ) 



{-A 6 ,0,/3 6 

{0, -02,0) 4 

{-A 22 ,0, -A 24 ) 

U(0, -A 26 ,0) A 20 



A (A 6 ,0, -0 6 }\ 
02,0} J 

74 {0, 0, 0) \ 
(0, 0, 0) y 4 j 
A13 {-A|4, 0, -Ai 6 ) 

{-An, -Ai8, -A19} A i2 



( A 20 (A 22 ,0, A 24 )\ ~ 
1{0,A 26 ,0) J 

I A12 {A14, 0, Ai 6 )\ 

I (An, Aig, A19) A13 ) 

\ t -74 {0,0, Oh 

j 1(0,0,0) -74 J 



T[Ei [1] , Ei [1] , X 2 [e 7 ] ] == ZERO 

True 



Leib[Ei [1] , Ei[l], X 2 [e 7 ]] //Expand 

(A 6 -j8 8 ,0, 0} 



f 

I (0, 0, 

[ 

UO, 0, 



{0, 0, 0) 
0} 
{/? 8 -A 6 ,0, 0} 
0) 



(a 8 + A 22 , 0, A 2 4 - «6 ) "> 



C (A 6 -jS 8 ,0,0}\ or 4 +A 20 

1(0,0,0) J 1(0, a 2 +A 26 ,0) 

\ I (0, 0, 0}\ ( (0,0,0) 

J 1(0,0,0) j 1(0,0,0) 

(0, 0, 0} 



■a 2 - A 26 , 0) 



a 4 + A 20 



(0, 0, 0) j 
\ C (0,0,0}\ 
J 1(0,0,0) J 



C (0,0, 0)\ 
1(0,0,0) J 



A[X 2 [e 7 ]] = 

A[X 2 [e 7 ] ] // . {A 6 -> /3 8 , A 20 -> -a 4 , A 22 -> -a 8 , A 24 -> a 6 , A 26 -> -a 2 } 



(0,0,0)1 
. (0, 0, 0) 



J 1(0, ft, 

1(0, -ft, 0} ft ) 1 
( (a 8 ,0, -a 6 }\ t 
, 1(0, a 2 ,0) -a 4 j 1 



(ft,0, -ft}\ 

J 1( 

) (, 



ff 4 {-or 8 ,0, a 6 ) 
(0, -ar 2 ,0) 

A12 (Ai 4 , 0, Aig) 

(A17 , Ai 8 , A19 ) An 
A13 {-Ai4,0, -\ 16 }\ ( -74 (0,0,0) 

{-An, -Aig, -A19) A12 



74 (0, 0, 0} 
(0, 0, 0) y 4 



}\ ( -74 (0, 0, 0)\ 

j 1(0,0,0) - 74 J 



T[Xi [ei], X X [e 3 ], X 2 [e 7 ]] == ZERO 

True 
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Leib [Xi [ei ] , Xi [e 3 ] , X 2 [e 7 ] ] // Expand 



'i o {0, o, 0} \ i o {o, o, oh ( o {o, o, oh \ 

1(0,0,0} J 1(0,0,0} J 1(0,0,0} J 

i o (o, o, oh /- o (o, o, oh c o (o, o, oh 

1(0,0,0} j 1(0,0,0} j ([0,S 5 -A 16 ,0} j 

( (0, 0, 0}W (0, 0, 0}\ ( (0, 0, 0}\ 

1(0,0,0} j 1(0, Xi 6 -S 5 ,0] J 1(0,0,0} J 



A[X 2 [e 7 ]] = A[X 2 [e 7 ]] //. {A 16 -+6 S } 

( o (0,0, oh c 

1(0,0,0} o J I 



o (0, o, oh / 

(0,0,0} j wo, 

{"08,0,06^ J' 

(0, -&,0} 04 



4 (0 8 ,O, -0 6 } 

(0,^2,0} 

\ C 74 (0,0,0} \ j 

J 1(0,0,0} r 4 J ! 

{arg.O, -ar 6 h / A 13 {-Ah,0, -<5 5 } 

) \ {-^17. -A-18, - 



(0,ff 2 ,0} 



— «4 



-A 19 } 



V ftl ) ( 

) 

,0, -<5 5 h 

ll2 J 



-a 4 (-as, 0, a 6 }"| ^ 
(0, -a 2 , 0} 

A12 {Ai4,0, o> 

(An, Aj 8 , Ai 9 } A 



-74 (0, 0, 0} 
(0, 0, 0} -y 4 



, 0, a 6 } \ 
J 
,0,c5 5 h 

ll3 J 

) 



T[Xi [ei] , X X [e 6 ], X 2 [e 7 ]] == ZERO 

True 



Leib [Xi [ei ] , X x [e 6 ] , X 2 [e 7 ] ] // Expand 



i (o, 0, o}\ t (o, 0, oh r (o, 0, oh 

((0,0,0} j 1(0,0,0} J 1(0,0,0} J 

C (0, 0, 0}\ ( (0, 0, 0}\ / (0, 0, 0} A 

1(0,0,0} j 1(0,0,0} j [{S3 +A12, 0, 0} <5 7 +A, 4 J 

C (0,0, 0}\ f 

1(0,0,0} J I 



(5 7 +A W 
-5 3 -A 12 ,0, 0} 



{0,0,0} A I (0, 0, 0}\ 
J 1(0,0,0} J 



A[X 2 [e 7 ]] =A[X 2 [e 7 ]] //. {A 12 ->-<5 3 } 

{0, 0, Oh ( p 



( ( (0,0, 0}\ c 
1(0,0,0} J I 

{-Pi, o,#,h c 74 

A J I (0, 



.{0, -02,0} 



f ° 

I l{0,a 2 , 



0} 



{ar 8 , 0, -ff 6 } 

-«4 



) ( 



4 (08,0,-06 
(0,02,0} 

74 (0, 0, 0} 
0} y 4 
A13 {-Ah,0, -6 5 

(-An, -Ai8, -A19} -63 



J 1(0,- 

) ( 



-or 4 j-ffs, 0, a 6 h ^ 
ff 2 ,0} j 

-S3 (Ai 4 ,0,^} 
(An, Aj8, A19} An 
-74 (0, 0, 0} \ 
{0,0,0} -74 J 



T [X X [e 2 ] , X X [e 8 ] , X 2 [e 7 ] ] == X 2 [e 3 ] 

True 
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Elemento generico de Der(H3( Os, —), 



A[X 2 [e 3 ] ] -Leib[Xi [e 2 ] , X x [e 8 ] , X 2 [e 7 ] ] // Expand 



(( o {o,o, oh 

{ {0, 0, 0) J 

( o {o,o, oh 

I {0, 0, 0) o J 

( {0, 0, 0) 

{ {0, 0, 0) 



C {0, 0, 0) \ 
I {0, 0, 0) J 
{0, 0, 0} 



! {0, 0, 0) \ 
I {0, 0, 0) J 



) 



+e 2 +A.i 8 , -T] 2 -A 17 , 0}- 

{0, 0, 0) 



{£ + #! -e 2 -Ai 8 , 772 +A17, 


{0, 0, 0) \ 
0) J 



f 

I {0, 0, 1 



A[X 2 [e 7 ]] = A[X 2 [e 7 ]] //. {A 18 ^e+<5i -e 2 , A 17 ^ -772} 




(, 



{0, 0, 0} 

{0, 0, 0) 

{-0 8 ,O,0 6 
{0, -&,0} 4 

{ff8,0, -a 6 ) 
{0, Q-2,0) -a 4 



/3 4 {^8,0,-06} 

{0,02,0} 
( 74 {0, 0, 0} 
I {0, 0, 0} 74 
^ ( A 13 {-Ah,0, -65} 

) \{r}2, -f-<5i +e 2 , -A 19 } -<5 3 



n ( 
) 



/ -a 4 {-as, 0, a 6 h 
Uo, -a 2 , 0} J 



) (,- 

) ( {0, 0. 



a 4 {-a 8 , 0, a 6 ) N 
Q-2, 0} 

<5 3 {Ai4,0, < 

l2>t; + di _e 2, A19} A 13 



-74 {0,0, Oh 
0} -74 , 



T[X X [e s ] , X X [e 8 ] , X 2 [e 7 ]] 

True 



-X 2 [e 7 ] 



A[X 2 [e 7 ] ] +Leib[X! [e s ] , Xj. [e 8 ] , X 2 [e 7 ] ] // Expand 

( {0, 0, 0} 



( {0,0, oh 

I {0, 0, 0} J 

( {0,0, 0}\ 

I {0, 0, 0} J 

j' {0, 0, 0} 

I {0, 0, 0} 



') 



[6-j +A i4 , 0, 0} 



( {0,0, 0}\ 

{ {0, 0, 0} J 
( (0,0, Oh ( 

1(0,0,0} J 1(0, 0, Xi9+4>2] 775 +A 13 

\ ( {0,0, 0}\ 

J 1(0,0,0} J 



775 + A13 {-<5 7 -A14, 0, 0} 
(0, 0, -A 19 - 02 } 



') 



A[X 2 [e 7 ] ] = A[X 2 [e 7 ] ] //. {A 19 -> -<t> 2 , A 13 -> -775, A 14 -> -<5 7 } 

C {0,0, Oh ( /3 4 {/3 8 ,0, -/3 6 h C -Q-4 {-Qr 8 ,0,a 6 h 

1(0,0,0} J 1(0, /3 2 ,0} J UO, -«2,0} 

C {-/3 8 , 0,/3 6 h J- y 4 {0,0, 0}\ C -<S 3 {-5 7 ,0,<5 5 }\ 

1(0,-/32,0} ft J 1(0,0,0} y 4 J U-772,£ + 5i -£2,-^2} -7/5 J 

C {a 8 ,0, -a 6 }\ J- -775 (<5 7 ,0, -<5 5 M J- -74 {0,0, 

Uo,a 2 ,0} -a 4 J l(772,-f-5i+e2,02} S3 I 1(0,0,0} -74 



Variables [A [X 2 [e 7 ] ] ] 

{£, a 2 , a A , a 6 , org, 2 , 4 , 06 , 08, 74, ft, 5 3 , <5 5 , <5 7 , e 2 , 772, 775, <p 2 ] 



X 2 [e 8 ] 



A [X 2 [e 8 ] ] = generic; 
U El[ i] [X 2 [e 8 ]] == ZERO 

True 



Sesion V 
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(defin[Ei [1] , X 2 [e 8 ] ] // Expand) 

'I Ai {0,0, Oh < {0, 0, 0)W (0, 0, 0)\\ 

( {0, 0, 0) Xi ) ( {0, 0, 0) ] ( {0, 0, 0) J 

( o {o, o, o)w o {o,o, oh i o {o,o, oh 

({0,0,0) J ({0, 0, 0) J 1(0,0,0) J 

( {0, 0, 0)W {0, 0, 0)\ ! {0,0, Oh 

({0,0,0) j ({0, 0, 0) j ({0,0,0) ), 



A[X 2 [e 8 ] ] = A[X 2 [e 8 ] ] //. {Ai -> 0} 

C {0,0, 0}\ C A 4 {A 6 ,A 7 ,A 8 h ( i 

({0,0,0) J ({A 9 ,A 10 ,A„) A 5 J ({A 25 ,^ 

( A 5 {-As, -A 7 , -A 8 }\ A 2 {0,0, 0}\ f i» 

({-A 9 ,-A 10 ,-A„) A 4 J ({0,0,0) A 2 J ( {A 17 , A 

/ A 2 l {-A22, -A23, -A24)\ / A13 {-A14, -A15 , -Al6}\ I 

, I { - A25 , -A26, -A27 ) A20 J I {-A17 , -Aig , -A19 ) A12 J I 



Ux 2[ea] [E 2 [1]] == ZERO 

True 



defin[X 2 [e 8 ] , E 2 [l]] //Expand 

j' {0,0, Oh j' {0,0, Oh ( A 8 {-A I0 ,A 9 ,0)V 

({0,0,0) J ({0,0,0) J ({0,0, A 5 ) J 

( {o, o, oh j' {0,0, oh ( jo, 0, oh 

({0,0,0) J ({0,0,0) J ({0, 0,A 2 -y 5 ) J 

{A 10 ,-A 9 ,0h ( {0,0, Oh C -Aig {0,0, 0)\ 

j ({0,0,0) -A 16 j , 



{0,0, -A 5 ) A 8 ) Uo,o, r5 -a 2 ) 



A[X 2 [e 8 ]] = 

A[X 2 [e 8 ] ] // . {A 2 -> y 5 , A 5 -> 0, A 8 -> 0, A 9 -> 0, Ai -> 0, A i6 -> 0} 



C {0,0, 0}\ C A 4 {A6,A 7 ,0}\ ( 

({0,0,0) J ({0,0, A„) J ( 

C {-A 6 ,-A 7 ,()M y 5 {0,0,0}\ ( 

({0,0, -A„) A4 j ({0,0,0) y 5 J ( 

A 2 i {-A 22 , -A 23 , -A 24 ) N j ( A13 {-A14, -A15, 0}\ j- A 3 {0, 0, 0}\ 

,({-^5,-A26,-A 27 ) A 20 J ({-A„, -Ai 8 , -A w ) Ai 2 j ({0,0,0) A 3 J 



{A25 , A26 , A2-7 ) A21 

Ai 2 {Ai4,A 15 ,0)> 
{An, Aig , A19 ) A13 ; 



Oe 3 [1] [X 2 [e 8 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



defin[E 3 [1] , X 2 [e 8 ] ] // Expand 



'i o {0, o, 0}w o {o,o, Oh i o {0, o, 0}y 

{ {0, 0, 0) j [ {0, 0, 0) j [ {0, 0, 0) J 

i o {o, o, o)w o {o,o, oh t o {o,o, oh 

1(0,0,0) J WO, 0, 0) J 1(0,0,0) J 

C o (0,0, oh t o (0,0, oh fy 5 +A 3 (0,0, oh 

1(0,0,0) o j 1(0,0,0) o J 1(0,0,0) y 5 +A 3 J, 



A[X 2 [e 8 ]] =A[X 2 [e 8 ]] //. {A 3 ->-rs} 

C {0,0, Oh ( A 4 (A 6 ,A 7 ,0h ( A 20 {A 22 , A 23 , A 24 M 

1(0,0,0) J 1{0,0,A„) J 1{A 25 ,A 26 , A 27 ) A 21 J 

C {-A 6 ,-A 7 ,()M r y 5 {0,0, 0}\ f A 12 (A 14 ,A 15 ,0h 

1(0,0, -A n ) A4 J 1(0,0,0) 75 J I {A 17 , A 18 , A 19 ) A 13 J 

(0, 0, C 
0) -75 



/ A 21 (-A22, -A 23 , -A 24 )\ ( A13 {-A 14 , -A15, 0)\ j- -75 (0,0,0) 

, I {-^25 ' "^26, _ ^2 7 ) A20 J V(-Al7, -Al8, -A19} A12 j \ (0, 0, 



Ux 2[ea] [E 3 [1]] == ZERO 

True 

defin[X 2 [e 8 ] , E 3 [1] ] // Expand 

{0,0, Oh ( -A 24 (A 2 6,-A 25 ,0)\ ( (0,0,0) 



( ( (0,0, Oh I -A 24 (A 26 , -A 25 ,0)\ ( (0,0, 0)V 

1(0,0,0) J 1(0, 0, -A21} J 1(0, 0,0) J 

^ i (o, 0, oh j' (o, 0, oh 

j I {0, 0, 0) J i (0, 0, 0) J 

0, oh 1 (o, 0, oh j' (o, 0, oh 

J 1(0,0,0) J 1(0,0,0) j, 



{-A 26 , A 25 ,0)^ ( (0,0, Oj- 
jO, 0, A 21 ) -A 24 
( (0, 0, 0) - 
{ (0, 0, 0) 



A[X 2 [e 8 ] ] = A[X 2 [e 8 ] ] //. {A 21 -> 0, A 24 -> 0, A 2S -> 0, A 26 -> 0} 

C (0,0, Oh I A 4 (A 6 ,A 7 ,0h A 20 (A22,A 23> 0}\ 

1(0,0,0) J l(0,0,A„) J l(0,0,A 27 ) J 

C ( — Afi , — A 7 , 0} \ < 75 (0,0, Oh 1 A 12 (A 14 ,A 15> 0}\ 

l(0,0,-A„) A 4 J 1(0,0,0) 75 J UAi7,Ai 8 ,A 19 } A 13 J 

I (-A22, -A 23 , 0)^ A 13 (-A 14 ,-A 15 ,0h r -75 (0,0, 0}\ 

A{0,0,-A 2 7} A 20 J l(-A 17 ,-A 18 ,-A 19 ) A12 J 1(0,0,0) -75 J 



Ux l[e2 ] [X 2 [e 8 ]] == ZERO 

True 
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defin[Xi [e 2 ] , X 2 [e 8 ] ] // Expand 



(( o jo, o, o)w o {o,o, oh i o jo, o, o}\\ 

( {0, 0, 0) j ( {0, 0, 0) A 4 - j3 5 J ( {0, 0, 0) J 

{o,o, oh ^ o {o,o, oh ^ o {o,o, oh 

1(0,0,0) J WO, 0, 0) J ({0,0,0) J 

f o {o, o, o)w o {o, o, o\\ i o {o,o, oh 

({0,0,0) j ({0, 0, 0) J ({0,0,0) ), 



A[X 2 [e 8 ]] = A[X 2 [e 8 ]] //. {A 4 ->/3 5 } 

C {0,0, 0}\ C ft {A 6 ,A 7 ,0h A 20 {A 22 ,A 23 ,0}\ ^ 

({0,0,0) J ({0,0, An) J ({0,0,A 27 } J 

C {-A 6 ,-A 7 ,0M ( y 5 {0,0,0}\ f A 12 {A 14 ,A 15 ,0h 

({0,0,-A„} ft J ({0,0,0) 75 J ({Ai7,Ai 8 ,A 19 } A 13 J 

j- {-A 22 ,-A 23 ,0}\ ( Ai 3 {-Ai4,-Ai 5 ,0}\ j- -75 

A {0,0, -A 27 ) A 20 J ({-Ai 7 ,-Ai8,-Ai 9 } Ai 2 j ({0,0, 



-75 {0,0, 0^ 

.0) -75 , 



U X2[ea] [X! [e 5 ]] == ZERO 

True 

defin[X 2 [e 8 ] , Xi [e 5 ] ] // Expand 

'( {0,0, Oh ( {0,0, Oh ( {0, 0, 0)\ \ 

({0,0,0) J ({0,0,0) j ({0,0,0) j 

o {o, o, oh ( o {o, o, oh ( o jo, o, oh 

{0,0,0) J ({0,0,0) J ({0, 0, ft -A n ) J 

{0, 0, 0) W {0, 0, 0) \ ! {0, 0, 0) \ 
{0,0,0) J I {0,0, Aii -ft} J ({0,0,0) j , 

A[X 2 [e 8 ]] = A[X 2 [e 8 ]] //. {An ->/3 2 } 

1 {0,0, 0}\ C ft {A 6 ,A 7 ,0M A 20 {A 22 ,A 23 ,0) 
({0,0,0) J ({0,0, ft) J ({0,0, 



A 27 ) ) 

A 12 {Ai4,A 15 ,0}^j 
{An , A 18 , A w ) A 13 J 



C {-A 6 ,-A 7 ,0M I 75 {0,0,0}\ 

({0,0, -ft) ft J ({0,0,0) 75 J [{} 

i {-A 22 ,-A 23 ,0}\ A 13 {-Ai4,-A 15 ,0}\ < -75 {0,0, 0}\ 

AfO.O.-A,,} A 20 J (j-A 17 ,-A 18 ,-A 19 ) A 12 J ({0,0,0) -75 J 



Ux 2[e8 ] [Xi [e 6 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



defin[X 2 [e 8 ] , Xi [e 6 ] ] // Expand 



'( {0,0, Oh 

{ {0, 0, 0) J 

( o {o,o, oh 

I {0, 0, 0) J 

( {0, 0, 0) 

{ {0, 0, 0) 



( {0, 0, 0) \ 
{ {0, 0, 0) J 
C {0, 0, 0) \ 
I {0, 0, 0) J 
{0, 0, 0) 

(0,0, ft +A 6 ) 



i o {o,o, oh ^ 

i {0, 0, 0) J 

t o {o,o, oh 

[{0,0, -fo-Xe) J 



\ t {0,0, Oh 
J 1(0,0,0) J , 



A[X 2 [e 8 ]] = A[X 2 [e 8 ]] //. {A 6 



-07 } 



{ [ 

I {0, 0. 

( 1 

1 {0, o, 

f 

U(o, 0,- 



{0, 0, 0) 
0} 

I (ft,-A 7 ,0i 
I {0,0, -ft} ft 

(-^-22 , -^23 , 0) 

A27 ) A20 



C ft {-ft,A 7 ,0}\ c A 2 

I {0,0, ft) J 1(0,0, 

I c 75 {0,0, on c 

1 1(0,0,0) 75 J I 

A13 (-A 14 , -A 15 , (>h I -7 

1 (0, 0. 



^-20 (^-22 , ^-23 . 0) \ 

J 



A27 ) 

A12 (Ai4,Ai5,0)^| 

{^17.^18.^19} <^13 J 



[-A17 , -Aig , -A19 ) 



75 (0, 0, 0) 
0) -75 



T [Ei [1], Ei [1], X 2 [e 8 ]] == ZERO 

True 



Leib[Ei[l], Ei[l], X 2 [e 8 ]] //Expand 

(0, 0, 0}\ 



f 

I (0, 0, 



,((0,0, 



f 

1(0,0, 


-a 2 -A27) 



( (0, A 7 -ft, Oh < a 5 +A 20 
1 (0, 0, 0) J 1 (0, 0, a 2 + A 27 

(0, 0, 0) 



(A 22 - Q-7 , a 6 + A 23 , 0) > 




{0,ft-A 7 ,0M ( {0,0,0}\ 

0) J 1(0,0,0) J 

(<*7 - A 22 , -a 6 - A 23 , 0}\ ( (0, 0, 0) ^ 

J 1(0, 



a 5 + A 20 



, 0, 0) 







C (0,0, OM 

1(0,0,0) J 

t {0,0, on 

1(0,0,0) J 



A[X 2 [e 8 ]] = 

A[X 2 [e 8 ] ] // . {A 7 -> I3 6 , A 20 -> -a 5 , A 22 -> o 7 , A 23 -a 6 , A 27 -> -a 2 } 



C {o,o, oh 

1(0,0,0) j 



(0, 0, -ft) 
C {-a 7 ,a 6 ,0}\ I 
, l{0,0, a 2 ) -Qf 5 J I 



C ft (-ft, ft, Oh r -as 

I (0,0, ft) ; 1(0,0, 

75 (0, 0, 0(j 



-ft, Oh ( 
ft J 1(0,0,0) 75 



{a 7 , -ar 6 , Oh 



((A,7, 



A12 (A14, A 15 ,Oh 

^18. ^-19 ) ^13 J 

(-A l4 ,-A 15 ,0)^ I -75 (0,0,0)1 

UO,o,( 



{-^17 , "^-18 , -A.19 ) 



A12 



,0) 



"75 



T[Xi [ei] , Xi [e 3 ], X 2 [e 8 ]] == ZERO 

True 
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Leib [Xi [ei ] , Xi [e 3 ] , X 2 [e 8 ] ] // Expand 






{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 






{0, 0, 0) ' 
{0, 0, 0) 



. 0, 0} \ 
o J 



o {o,o, on i o {o,o, oh 

J [{0, 0,6 5 + A 15 } J 



{0, 0, 0) 



w o {o,o, oh ( o {o,o, oh 

J [{0,0, -Ss -A 15 ) J 1(0,0,0) ) , 



A[X 2 [e 8 ] ] = A[X 2 [e 8 ] ] //. {A 15 -> -<5 5 } 

( {0,0, Oh I ft {-ft, ft, Oh f -a 5 {a 7 ,-a 6 ,0}\ ) 

i{0,0,0) J WO,0,ft) J U0,0,-a 2 ) J 

{ft, -ft, Oh f 75 {0, 0, OJ^i f Ai 2 {A 14 , -S s ,0}\ 

.{0,0, -ft) ft J 1(0,0,0) 75 j l(A 17 , A 18 ,A 19 ) A 13 J 

C {-<*,, a 6 ,0}\ f A 13 {-Ai4.fc.0h / -y 5 {0, 0, 0) \ 

l(0,0,ff 2 ) -aj J U-Ai7,-Ai 8 ,-Ai 9 } A 12 J 1(0,0,0) -75 J 



T[Xi [ei] , X X [e 6 ], X 2 [e 8 ]] == ZERO 

True 



Leib [Xi [ei ] , X x [e 6 ] , X 2 [e 8 ] ] // Expand 






{0, 0, Oh 


f ° 


(0, 0, 0) 


J 


I (0, 0, 0) 





(o, 0, oh 


f 


{0, 0, 0) 


J 


I {0, 0, 0) 





(o,o, oh 1 
J ll 


A14 - 66 


(0, 0, 0) 


-64 - Ai 2 , ( 



( (0, 0, 0) \ 
I {0, 0, 0) J 

) 

(0,0,0} a 1 {o, 0, oh 

J 1(0,0,0) J 



{0, 0, 0) 

(0, 0, 0) 

{0, 0, 0) 
0,0) X u -S 6 



A[X 2 [eg] ] = A[X 2 [e 8 ] ] //. {A 12 -> -64, A 14 -> <5 6 } 

{0,0, Oh f ft {-ft,ft,0) 



f^O (0,0, 0)\ c ft 

1(0,0,0) J ({0,0, 

(, 



) (, 



(ft,-ft,0) 
{0,0, -ft) ft 
I {-ar 7 ,ar 6 ,0} 
> 1(0,0, 



75 (0, 0, 0) 



) ( (0,0,0) 75 ) \ {A17 , Ai8 , A19 } A 



a 2 ) 



-a 5 



) ( 



^13 

{-A17, -Al8, -A19} 



) ( 

65 
64 



-a 5 
-64 



(a 7 , ~a 6 , Oh 
J 
{6 6 ,-6 5 , 0}^ 



■6 5 ,0}\ 

13 J 



{-<5 6 ,<5 5 ,Oh ( -75 (0,0, Oh 
J 1(0,0,0) -75 J 



T[Xi [e 2 ] , X X [e 8 ] , X 2 [e 8 ]] == ZERO 

True 
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Elemento generico de Der(H3( Os, —), 



Leib [Xi [e 2 ] , X x [e 8 ] , X 2 [e 8 ] ] // Expand 

o {o,o, oh ( o jo,o, or 






{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 








{0, 0, 0) 


{0, 0, 0) 






i o {o,o, on i o {o,o, oh 

1(0,0,0) J 1(0,0,0) o J 



o, oh 

(0, 0, 0) o J 



{0,0, 0)^ t (e 3 +A 18 , -773 -A l7 ,0)> 

{ (0, 0, 0) , 

\ ( (0,0, Oh 

J 1(0,0,0) J 



{-e 3 -Ai 8 , 773 +A.17, 0}^ ( (0,0,0) 

(0, 0, 0) 



A[X 2 [e 8 ] ] = A[X 2 [e 8 ] ] //. {A 18 -> -e 3 , A 17 -> -773} 

( (0,0, Oh f 5 {-0 7 ,0 6 ,Oh f -a 5 {a 7 ,-a 6 ,0}\ < 

1(0,0,0) J l(O,O,0 2 ) J U0,0,-a 2 ) J 

I {0 7 ,-0 6 ,Oh / 75 {0,0, Oh / {fc.-fc.Oh 

[{0,0, -0 2 } /3 5 J 1(0,0,0) y 5 j U-773 ,-e 3 ,Ai9) A 13 J 

I {-a 7 ,a 6 ,0h C A 13 {-<5 6 ,<5 5 ,Oh / -y 5 (0,0, 0}\ 

i{0,0, ff 2 ) -a 5 J Ulj3,63,-Ai 9 } -5 4 J 1(0,0,0) -75 J 

T [Xi [e 7 ] , X 2 [e 6 ] , X 2 [e 8 ] ] == -X x [ei ] 

True 



A[Xi [ei] ] +Leib[X! [e 7 ] , X 2 [e 6 ] , X 2 [e 8 ] ] // Expand 

{0,0, 0}^ (-£ + £2 +m -^19 (0,0,0) 



I (0, 0. 

f 

I {0, 0, 

f 

I I (0, 0, 



0) 
{0, 0, 0) 



I (-$ + e 2 +77! -A 19 (0,0, Oh ( 
j { {0,0,0} J 1(0,0 



0) -£ + e 2 +771 -A19 
{0, 0, 0) 
0) 



\ f (0,0, Oh 

J 1(0,0,0) J 

( {0,0, Oh 

J 1(0,0,0) J 



)) 

0, 0) \ 

J 

C {0, 0, 0) \ 
1(0,0,0) J, 



{0, 0, 0) 
0} 
(0, 0, 0) 
{0, 0, 0) 

(0, 0, 0) 
0) 



A[X 2 [e 8 ] ] = A[X 2 [e 8 ] ] //. {A 19 ^ -e + e 2 + 771} 

{0, 0, 0) 







f f (0,0, Oh ( li 

1(0,0,0) J uo, 

{07, -06,0} j j- 

) ( 



7,-/36,0) 

(0,0, -0 2 } ft 

7- {-a 7 ,a 6 ,0} 
> 1(0,0, 



a 2 ) 



y8 5 (-07,06,0) 

2 ) 
75 (0, 0, 0) 
(0, 0, 0) 75 
A 13 {-6 6 ,S 5 ,0} 
(773 , e 3 , £ - e 2 - 771 ) 



) ((0,0 

') (, 



i, (<i . Hh.oh 

a 2 ] j 

-63, -£ + e 2 +% ) ^13 
C "75 (0,0, Oh 
{ (0, 0, 1 



0) 



"75 



T [X X [e 2 ] , X 2 [e 7 ] , X 2 [e 8 ] ] == X x [e 3 ] 

True 
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A[Xi [e 3 ]] -Leib[Xi [« 

( I {0,0, Oh 
{ {0, 0, 0) J 

t o io,o, oh 

1(0, A 13 -774,0) J 

r {0, 0, 0) \ 
> '{0,0,0) J 



I , X 2 [e 7 ] , X 2 [e 8 ] 

{0, 0, < 

{0,7/4 -A 13 ,0) 

( o {o,o, oh 

I {0, 0, 0) J 
( {0,0, 0)\ 
{ {0, 0, 0) J 



// Expand 

\ c o {0,0, 0}y 

J 1(0,0,0) o J 

C {0, 0, 0) \ 

I {0, 0, 0} J 

( {0, 0, 0) \ 

1(0,0,0) J, 



A[X 2 [e 8 ]] = A[X 2 [e 8 ]] //. {A 13 -> 774 } 

( (0,0, 0)\ / ft (-ft, ft, Oh f -a 5 (a 7 ,-a 6 ,0)\ 

1(0,0,0) J l(0,0,ft) J U0,0,-a 2 } J 

{ft, -ft, Oh 7* y 5 (0,0, Oh 7* {^,-^,0)\ 

(0,0, -ft) /3 5 J 1(0,0,0) 75 J -e 3 , + e 2 +77, } 774 J 

{- ff7 , ff6 ,0h f 774 {-5 6 ,5 5 ,0)\ ( -y 5 (0,0, 0}\ 

{0,0,ff 2 ) -«5 J 1 (773 ,63,^-62-77!) -<5 4 J 1(0,0,0) -75 J 

Variables [A [X 2 [e 8 ] ] ] 

{£ a 2 , a 5 , ffe, «7, ft, ft, ft, /3 7 , 75, S 4 , 6 5 ,6 6 , e 2 , e 3 , ^ , 773, 774) 



■ Looking for identities for X 3 [ej ] and its image 

T[Ei[l], X X [ei], X 2 [ei]] ==X 3 [ei] 

True 



A[X 3 [ei]] =Leib[E![l], Xx[ei], X 2 [ei]] 

( l -ft (0,0, Oh l -72 (73,74,75)^ ( ? + <5i (£4, -m,m}Y 

1(0,0,0) -ft J 1(0,0,0) J Ufc.fc,*;} J 

( (-73,-74,-75)^ ( (0,0, 0)\ / a 2 (0, 0, Oh 

1(0,0,0) -72 J 1(0,0,0) J i(-a 6 ,-a 7 ,-a 8 ) J 

(-64,775,-774)^ (o, 0, oh ( ft (0,0, oh 

{-65,-66,-6^ f + J iffffi,^,^) «2 J 1(0,0,0) ft J 

T[Ei[l], Xi [e 2 ], X 2 [e 2 ]] ==X 3 [e 2 ] 

True 



A[X 3 [e 2 ]] =Leib[Ei[l], X^ez], X 2 [e 2 ]] 

( -ft (0,0,0h ( {0,0,0)\ ( {pi./to.Psh 

1(0,0,0) -ft J 1(76,77,78) -n J I {-ATI, ^2,-^1} J 

7- - 7l (0,0, 0)\ 7- (0,0, 0)\ t- {-a 3 ,-a 4 ,-a 5 }\ 

{ {-76, -77,-78) J 1(0,0,0) J 1(0,0,0) a { J 

7- -£-(5, (-pi, -p 2 , -Pi)\ ( a\ {a 3 ,a 4 ,a 5 }\ t ft (0, 0, 0) \ 

Au-i.-^.^i} J 1(0,0,0) J 1(0,0,0) ft J 



Elemento generico de Der(H3( Os, —), 



T[Ei[l], Xi [ei], X 2 [e 3 ]] ==X 3 [e 3 ] 

True 



A[X 3 [e 3 ]] =Leib[E![l], Xifei], X 2 [e 3 ]] 

i p 6 {o,o, oh ( 7 6 {- ri ,o,oh t - X \ im -f, m, m)y 

1(0,0,0) /3 6 J U0,-7 5 , 74 } J [{0,64,-63} S 5 J 

( (n,o,oh c (0,0, oh t (« 2 ,o,oh 

1(0,75,-74) 76 J 1(0,0,0) J UO, -05,04} J 

/ ^ {f-91.-72.-1/3h ( -<*6 {-a 2 ,o,o}\ 1 -p 6 {o,o,oh 

A{0, -<5 4 , <5 3 } -xi ) l(0,a 5 ,-a 4 ) J 1(0,0,0) -fo J 

T[Ex[l], Xi [ ei ], X 2 [e 4 ]] ==X 3 [e 4 ] 

True 

A[X 3 [e 4 ]] = Leib[Ei [1], Xi[«i], X 2 [e 4 ]] 

I {0,0, Oh f 77 (0,- 7l , Oj^j I ^ (e, , e 2 - £ e 3 }Y\ 

1(0,0,0) /3 7 J 1(75 , 0,-73 ) J l{-tf 4 ,0,&} c5 6 J 

i o (o, 7i,o)\ /- o {o,o, oh i o (o, » 2 ,oh 

U-75 , 0,7 3 ) 77 J 1(0,0,0) J Uorj.O, -or 3 } -07 J 

a 2 ,oh c -/3 7 {0,0, 0)\ 

J 1(0,0,0) -A J 



<S 6 {-e 1; f-e 2 , -e 3 }\ / -<*, (0, -ff 2 ,0)^ C -/3 7 (0,0,0) 
.{<5 4 , 0, -<5 2 } ^ 2 J ({-a 5 ,0,ff 3 ) 



T[Ei[l], Xi [ei], X 2 [e s ]] ==X 3 [e 5 ] 

True 



A[X 3 [e 5 ]] =Leib[Ei[l], Xi[ei], X 2 [e s ]] 



As {0,0,0}^ 1 rs (0,0,-yi}\ ( -i/>, {<p u <p 2 , f + -e 2 -171^ 

73,0) J l{5 3 , -«S 2 .0> <5 7 J 

(0,0,yi}\ f (0, 0,0} \ f (0, 0, a 2 }\ 



C As {0,0, oh c > 

1(0,0,0} ft J U-74, 

C (0,0, ri }\ I (0,0,0}\ 

1(74,-73 , 0} rs J 1(0,0,0) J { 



I 67 {-4>u-<h,-t-6i +«2 +r H}\ ( -«8 {0,0,-a 2 }\ r -jSg (0,0,0)^ 

AWa.fe.O} -^1 J l(a 4 ,-a 3 ,0} j I (0, ( 



-ff4 ,0-3,0} 

-jS 8 ( 
, 0, 0} -ft 



T[Ei[l], Xi [e 6 ], X 2 [ei]] ==X 3 [e 6 ] 

True 



A[X 3 [e 6 ]] =Leib[Ei[l], Xi[e 6 ], X 2 [ei]] 

( ( (0,0,0}\ / (0,7 8 ,-7 7 )^j ( Pi {0,-p6.Ps>y 

1(0,0,0) fa J I {-72, 0,0} 73 J Uf-^-ei.-^i} 64 J 

C 73 (0,-78,77)^ ( {0,0, Oh I -a 3 {0, a 8 ,-a 7 }\ 

1(72,0,0} J 1(0,0,0) J Uai,0,0} J 

j' e 4 {O.pe.-psh ( {0, -a 8 ,a 7 h r -A {0, 0, Oh 

Mm -f, 61,^1} pi J I {-a,, 0,0} -a 3 J 1(0,0,0} -/3 3 J 
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T[Ei [1] , X X [e 7 ] , X 2 [ei] ] == X 3 [e 7 ] 

True 



A[X 3 [e 7 ]] =Leib[E![l], Xi[e 7 ], X 2 [ei]] 

i fa jo,o, oh i o {-rs,o, reh i P2 {p 6 ,o, -p 4 }y 

1(0,0,0) /3 4 J 1(0,-72,0} 74 J U-ife.f-62, -«2} -i/5 J 
( 74 (78,0, -7 6 h C (0,0, Oh t -a 4 j-ff 8 ,0, ar 6 h 

1(0,72,0) J 1(0,0,0) J UO,ari,0} J 

, -775 {-p 6 ,0,p 4 h C {a 8 ,0, -a 6 }\ I -p 4 {0,0,0} A 

Ate, e 2 02) P2 J l{0,-ai,0} -cm J 1(0,0,0) -/3 4 J , 



T[Ei[l], X X [e 8 ], X 2 [ei]] ==X 3 [e 8 ] 

True 



A[X 3 [e 8 ]] =Leib[Ei[l], Xi[e 8 ], X 2 [ ei ]] 

f ft {0,0, OM f (77,-76,0)^ f P 3 {-p 5 ,p 4 ,0h 

1(0,0,0) ft J l{0,0,-7 2 ) 75 J 1{-Jft , -e 3 , -f - (Si + 62 + i/i } 174 J 
C 75 {-77 , 76 , 0)^j J- {0,0, Oh t -a 5 (a 7 ,-a 6 ,0}\ 

l{0,0,7 2 ) J 1(0,0,0) J I {0,0, ffl ) J 

t/4 {p 5 ,-P4,0h J- {-ar 7> a 6 ,0}\ r -ft {0,0,0) 

Ate.e 3 .f + «5i-^-'?i} P3 J 1(0,0, -04) -of 5 J 1(0,0,0) -ft 



■ Generic matrix and a basis 

paramet = Union [Variables [A [Ei [1] ] ] , 

Variables [A [E 2 [1] ] ] , Variables [A [E 3 [1] ] ] ] ; 
Do [paramet = Union [paramet, Variables [A [X ± [e-j ]]]] , {i, 3}, {j, 8}] 

paramet 

qti , a 2 , a 3 , «4 , a 5 , a 6 , a 7 , or 8 , Pi , Pi , P3 , Pa , Ps , As , /3 7 , 
As, 7i, 72 , 73 , 74 , 75, 76, 77, 7s, <5i, <5 2 , £5 , (54, S 5 , 6 6 , 5 1 ,e { ,e 2 , 

e 3 , e 4 , 771 , 772, ?73, »/4, V5, Pi, Pi, P3, P4, P5, P6, 01, 02, ATI, 01, 02} 



Length [paramet] 

52 



li= {A[Ei[l]], A[E 2 [1]], A[E 3 [1]], A[Xx [e x ] ] , 

A[Xi [e 2 ]], A[X X [e 3 ]], A[X X [e 4 ]], A[X X [e s ] ] , 

A[Xi [e 6 ]], A[Xi[e 7 ]], A[Xi [e 8 ]], A[X 2 [e x ] ] , A[X 2 [e 2 ] ] , 

A[X 2 [e 3 ]], A[X 2 [e 4 ]], A[X 2 [e s ]], A[X 2 [e 6 ]], A[X 2 [e 7 ] ] , 

A[X 2 [e 8 ]], A[X 3 [ei]], A[X 3 [e 2 ]], A[X 3 [e 3 ] ] , A[X 3 [e« ] ] , 

A[X 3 [e s ]], A[X 3 [e 6 ]], A[X 3 [e 7 ]], A[X 3 [e 8 ] ] } ; 



Elemento generico de Der(H3( Os, —), 



supermatrix = { } ; 

Do[se = li[ [i] ] ; f = {se[ [1 
se[[2, 2]] [[1, 1]], se 
se[[l, 2]] [[2, 2] 
se[[l, 2]] [[1, 2]] [[2] 
se[[l, 2]] [[2, 1]] [[1] 
se[[l, 2]] [[2, 1]] [[3] 
se[[2, 3]] [[2, 2]], se 
se[[2, 3]] [[1, 2]] [[2] 
se[[2, 3]] [[2, 1]] [[1] 
se[[2, 3]] [[2, 1]] [[3] 
se[[l, 3]] [[1, 1] 
se[[l, 3]] [[1, 2]] [[1] 
se[[l, 3]] [[1, 2]] [[3] 
se[[l, 3]] [[2, 1]] [[2] 
AppendTo [supermatrix, 



1]] [[1, 1]], 
[3, 3]] [[1, 1]], 
, se[[l, 2]] [[1, 
, se[[l, 2]] [[1, 
, se[[l, 2]] [[2, 
, se[[2, 3]] [[1, 
[2, 3]] [[1, 2]] [[1]], 
, se[[2, 3]] [[1, 2]] [[3]] 
, se[[2, 3]] [[2, 1]] [[2]] 



se[[l, 2]] [[1, 
2]] [[1]], 
2]] [[3]], 
1]] [[2]], 
1]], 



1]] 



, se[[l, 3]] [[2, 
, se[[l, 3]] [[1, 
, se[[l, 3]] [[2, 
, se[[l, 3]] [[2, 
f], {i, 27}] 



2]], 

2]] [[2]], 
1]] [[1]], 
1]] [[3]]}; 



supermatrix 



<5i_,j_ := If [i == 3, 1, 0] ; 

var = Variables [supermatrix] ; num = Length [var] ; 
reglas = Table [var[ [j] ] ->5i,j, {i, num}, {j, num}]; 
Do[xi = supermatrix // . reglas [ [i] ] , {i, num}] 

Dimensions [supermatrix] 

{27, 27} 



supermatrix c f$ (O s ) 

We will prove that any matrix as the previous one is a derivation: 
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Coor [ 



a_ 
/3_ 



{{«[[!, 1]] 

a[[l, 2]] 

a[[2, 1]] 

b[[2, 2]] 

b[[2, 1]] 

c[[2, 2]] 

c[[2, 1]] 



c_ ' 

-*>_]:- 
X_ J 

, /3[[1, 1]], x[[l, 1]], a[[l, 1]], a[[2, 2]], 
[[1]], a[[l, 2]] [[2]], a[[l, 2]] [[3]], 
[[1]], a [[2, 1]] [[2]], a [[2, 1] ] [ [3] ] , b[ [1, 1] ] 
,b[[l, 2]][[l]],b[[l,2]][[2]],b[[l,2]][[3]] 
[[1]], b[[2, 1]] [[2]], b[[2, 1]] [[3]], c[[l, 1]] 
, c[[l, 2]][[1]], c[[l, 2]][[2]], c[[l, 2]][[3]] 
[[1]], c[[2, 1]] [[2]], c[[2, 1]] [[3]]}} 



InvCoor [{ {al_, a2_, a3_, a4_, a5_, a6_, a7_, a8_, 

a9_, alO_, all_, al2_, al3_, al4_, al5_, al6_, al7_, al8_, 
al9_, a20_, a21_, a22_, a23_, a24_, a25_, a26_, a27_}}] := 



( ^ 
\ {0, 0, 



{0, 0, Oh 
0} al I 

a4 {a6, a7, a8} 

{a9, alO, all} a5 

a20 {a22, a23, a24} 

{a25, a26, a27} a21 



a4 



)] 



)] '[( 



a2 



al2 

{al7, al8, al9} 



{a6, a7, a8} 



{0, 0, 0}. 



) ( 



{al4, al5, al6} 
al3 



)] 



a2C 

{a25, a2« 
al2 

{al7, al£ 

(,» 



D(1)=0 

InvCoor [Coor [ONE] . supermatrix] == ZERO 

True 

D(U x (y)) = T(D(x), y, x) + U x (D(y)) 



InvCoor [Coor [Ug ener i C [Ei [1] ] ] .supermatrix] - 

T[ InvCoor [Coor [generic] .supermatrix] , Ei [1] , generic] 
Ugeneric [ InvCoor [ Coor [Ei [1] ] . supermatrix] ] // Expand 



{0, 0, 0} 
{0, 0, 0} 

{0, 0, 0} 
{0, 0, 0} 

( {0, 0, 0} 
\{0, 0, 0} 



{0, 0, 0} 
{0, 0, 0} 

{0, 0, 0} 
{0, 0, 0} 

o, oh i o {0,0,0} 

J I {0,0,0} 



{0, 0, 0} 
{0, 0, 0} 

{0, 0, 0} 
{0, 0, 0} 

{0, 0, 0} 
0} 



\ ( o {o,o, oh 

J 1(0,0,0} ) t 



InvCoor [Coor [Ugeneric [E2 [1] ] ] . supermatrix] - 

T[ InvCoor [Coor [generic] .supermatrix] , E 2 [1] , generic] 
Ugeneric [ InvCoor [ Coor [E 2 [1] ] . supermatrix] ] // Expand 



f ° 

wo, o, 

f ° 

wo, o, 



( 



{0, 0, 0} 

0} 

{0, 0, 0} 

0} 

{0, 0, 0} 
{0, 0, 0} 



{0, 0, 0} 
{0, 0, 0} 

{0, 0, 0} 
{0, 0, 0} 



{0, 0, 0} 

{0, 0, 0} 

0, Oh ( {0,0,0} 
J { {0,0, 



0} 







)( 



{0, 0, 0} 



')( 



{0, 0, 0} 
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Elemento generico de Der(H3( Os, —), 



InvCoor [Coor [Ug ener i C [E 3 [1] ] ] . supermatrix] - 

T [InvCoor [Coor [ generic] .supermatrix] , E 3 [1] , generic] 
Ugeneric [ InvCoor [ Coor [E 3 [1] ] . supermatrix] ] // Expand 



f ° 

wo, o, 

f 

wo, o, 



( 





0! 



0} 


{0, 0, 0} 



{o,o, on t o 

J I {0,0,0} 

{o, o, on ( 

J I {0,0,0} 

{0, o, on t 

J 1(0,0,0} 



{0, 0, 0} 


{0, 0, 0} 


{0, 0, 0} 




f 

Uo, o, 



0) 



\ ( o {o, o, on 

J 1(0,0,0} J 

( 





{0, 0, 0} 



{0, 0, 0} 


{0, 0, 0} 


{0, 0, 0} 




Do [Print [Expand[ 

InvCoor [Coor [Ugeneric [Xi, 2 [©i ] ] ] . supermatrix] -T [InvCoor [ 
Coor [generic] . supermatrix] , Xi <2 [ei], generic] - U gen eric [ 
InvCoor [Coor [Xi ;2 [ei] ] .supermatrix] ] ] == ZERO] , {i, 8}] 

True 



True 



True 



True 



True 



True 



True 



True 



Do [Print [Expand[ 

InvCoor [Coor [Ugeneric [X2, 3 [©i ] ] ] . supermatrix] -T[InvCoor[ 
Coor [generic] . supermatrix] , X 2 ,3[ei], generic] - U gen eric [ 
InvCoor [Coor [X 2 , 3 [ei] ] .supermatrix] ] ] == ZERO] , {i, 8}] 

True 



True 



True 



True 



True 



True 



True 



True 
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Do [Print [Expand [ 

InvCoor [Coor[U g eneric [Xi,3 [ei ] ] ] . supermatrix] -T[InvCoor[ 
Coor [generic] . supermatrix] , Xi i3 [ei], generic] - U gener i C [ 
InvCoor [Coor[X i; 3 [ei] ] .supermatrix] ] ] == ZERO] , {i, 8}] 

True 
True 
True 
True 
True 
True 
True 
True 



